WL-TR-96-3055 


AN  EVALUATION  OF 
COMPUTATIONAL  ALGORITHMS 
TO  INTERFACE  BETWEEN  CFD  AND 
CSD  METHODOLOGIES 


MARILYN  J.  SMITH 
DEWEY  H.  HODGES 
CARLOS  E.S.  CESNIK 


GEORGIA  TECH  RESEARCH  INSTITUTE  AND 
SCHOOL  OF  AEROSPACE  ENGINEERING 
GEORGIA  INSTITUTE  OF  TECHNOLOGY 
ATLANTA  GA  30332-0844 


NOVEMBER  1995 


FINAL  REPORT  FOR  09/01/94-09/01/95 


Approved  for  public  release;  distribution  unlimited 


FLIGHT  DYNAMICS  DIRECTORATE 
WRIGHT  LABORATORY 
AIR  FORCE  MATERIEL  COMMAND 
WRIGHT-PATTERSON  AIR  FORCE  BASE,  OH  45433-7562 


THIS  DOCUMENT  IS  BEST 
QUALITY  AVAILABLE.  THE 
COPY  FURNISHED  TO  DTIC 
CONTAINED  A  SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO 
NOT  REPRODUCE  LEGIBLY. 


NOTICE 


When  Government  drawings,  specifications,  or  other  data  are  used  for 
anv  purpose  other  than  in  connection  with  a  definitely  Govemiiient“related 
procurement,  the  United  States  Government  incurs  no  responsibility  or  any 
obligation  whatsoever.  The  fact  that  the  government  may  have  formulated  or 
in  any ‘way  supplied  the  said  drawings,  specifications,  or  other  data,  is  not 
to  be  regarded  by  implication,  or  otherwise  in  any  manner  construed,  as 
licensing  the  holder,  or  any  other  person  or  corporation;  or  as  conveying 
any  rights  or  permission  to  manufacture,  use,  or  sell  any  patented  invention 
that  may  in  any  way  be  related  thereto. 


This  report  is  releasable  to  the  National  Technical  Information  Service 
(NTIS).  At  NTIS,  it  will  be  available  to  the  general  public,  including 
foreign  nations. 


This  technical  report  has  been  reviewed  and  is  approved  for  publica¬ 


tion. 


Kenneth  J.  i^ran 
Aerospace  Engineer 
CFD  Research  Section 


Joseph  M.  Manter 
Chief 

CFD  Research  Branch 


Dennis  Sedlock 
Chief 

Aeromechanics  Division 


If  your  address  has  changed,  if  you  wish  to  be  removed  from  our  mailing 
list,  or  if  the  addressee  is  no  longer  employed  by  your  organization  please 
notify  WL/FIMC  ,  WPAFB,  OH  45433-  7913  to  help  us  maintain  a  current 
mailing  list. 


Conies  of  this  report  should  not  be  returned  unless  return  is  required  by 
security  considerations,  contractual  obligations,  or  notice  on  a  specific 
document. 


r  Docuf 


PAGE 


Form  Approved 
0MB  No.  0704-0188 


I  Public  reporting  burden  for  this  collection  of  information  is  estimated  to  average  :  hour  per  response,  including  the  time  for  reviewing  instructions,  searching  existing  data  sources, 
j  gathering  and  maintaining  the  data  needed,  and  completing  and  reviewing  the  colleaion  of  information.  Send  comments  regarding  this  burden  estimate  or  any  other  aspea  of  this 
I  collection  of  information,  including  suggestions  for  reducing  this  burden,  to  Washington  Headquarters  Services,  Directorate  tor  information  Operations  and  Reports,  1215  Jefferson 
Davis  Highway,  Suite  1204,  Arlington.  VA  22202-4302,  and  to  the  Office  of  Management  and  Budget,  Paperwork  Reduction  Project  (0704-0188).  Washington,  DC  20503. 


3.  REPORT  TYPE  AHD  DATES  COVERED 

FINAL  09/01/94--09/01/95 


AGENCY  USE  ONLY  (Leave  blank)  j 

2.  REPORT  DATE  ^ 

_ 1 

NOV  1995  I 

|4.  TITLE  AMD  SUBTITLE  AN  EVALUATION  OF  COMPUTATIONAL 
j  ALGORITHMS  TO  INTERFACE  BETWEEN  CFD  AND  CSD 
I  METHODOLOGIES 

6.  AUTHORj^^RILYN  J.  SMITH  “ 

DEWEY  H.  HODGES 
CARLOS  E.S.  CESNIK 


.1  5.  FUNDING  NUMBERS 

j  C  F33615-94-C-3010 
■S  PE  62201 
J  PR  2404 

1  TA  10 

i  WU  TK 


7.  PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESS(ES) 

GEORGIA  TECH  RESEARCH  INSTITUTE  AND 
SCHOOL  OF  AEROSPACE  ENGINEERING 
GEORGIA  INSTITUTE  OF  TECHNOLOGY 
ATLANTA  GA  30332-0844 


i  8.  PERFORMING  ORGANIZATIO.N 
REPORT  NUMBER 

’  A-9812-100 


9.  SPONSORING  /  MONITORING  AGENCY  NAME(S)  AND  ADDR£SS(ES) 

FLIGHT  DYNAMICS  DIRECTORATE 

WRIGHT  LABORATORY 

AIR  FORCE  MATERIEL  COMMAM^ 

WRIGHT  PATTERSON  AFB  OH  45433-7562 


10.  SPONSORING /MONITORING 
AGENCY  REPORT  NUMBER 

WL-TR-96-3055 


12a.  OISTRIBUTiON /AVAILABILITY  STATEMENT 

APPROVED  FOR  PUBLIC  RELEASE;  DISTRIBUTION  IS 
UNLIMITED. 


12b.  DISTRIBUTION  CODE 


Methods  to  transfer  information  from  Computational  Fluid  Dynamics  (CFD)  to 
Computational  Structural  Dynamics  (CSD)  and  vice  versa  have  been  evaluated.  The  data  include 
geometry  deformations,  slopes  and  loads.  The  methods  were  evaluated  for  accuracy,  robustness 
and  case  of  use.  Both  interpolations  and  extrapolations  were  evaluated.  Six  methods  were 
analyzed:  Infinite  Plate  Splines,  Multiquadrics,  Thin  Plate  Splines,  Non-Uniform  B-Splines, 
Finite  Plate  Splines  and  Inverse  Isoparametric  Mapping.  Of  these,  the  Thin  Plate  Splines  were  the 
most  accurate  and  robust,  followed  closely  by  Multiquadrics.  The  Infinite  Plate  Spline  Method, 
although  widely  used,  is  not  recommended. 


14.  SUBJECT 

Computational  Fluid  Dynamics,  Computational  Aeroelasticity , 
Interpolation,  Extrapolation. 


I  15.  fiUMScR  Or  PAGES 


17.  SECURITY  ClASSirSCATJOJSS  I  18.  SECURITY  CLASSiFlCATiONi 
OF  REPORT  i  OF  THIS  PAGE 

UNCLASSIFIED  ?  UNCLASSIFIED 


SECURITY  CLASSIFiCATiOiV^ 
OF  ABSTRACT 


UNCLASSIFIED 


2G.  LlMiTATlOfy' OF  ABSTRACT  i 

SAR 


MSM  754G-G' -280-5500 


Standard  rorm  298  (Rev.  2-89) 

Prescribed  by  A^Sl  Std.  Z39-18 
298-122 


1 


TABLE  OF  CONTENTS 


1.  INTRODUCTION . . 1 

2.  APPROACH . 3 

3.  LITERATURE  SURVEY . 5 

4.  INFINITE-PLATE  SPLINE  METHOD  -  MATHEMATICAL 

FORMULATION . 12 

5.  BIHARMONIC-MULTIQUADRICS  METHOD  -  MATHEMATICAL 

FORMULATION . 21 

6.  NON-UNIFORM  B-SPLINE  (NUBS)  METHOD  -  MATHEMATICAL 

FORMULATION . 27 

7.  THIN-PLATE  SPLINE  METHOD  -  MATHEMATICAL 

FORMULATION . 33 

8.  FINITE-PLATE  SPLINE  METHOD  -  MATHEMATICAL 

FORMULATION . 38 

9.  INVERSE  ISOPARAMETRIC  METHOD  -  MATHEMATICAL 

FORMULATION . 45 

10.  DESCRIPTION  OF  THE  ANALYTICAL  TEST  CASES . 50 

11.  RESULTS  OF  THE  ANALYTICAL  TEST  CASES . 57 

11.1  Infinite-Plate  Spline  Method  (IPS) . 59 

11.2  Bihaimonic-Multiquadrics  Method . 74 

11.3  Non-Uniform  B-Splines  Method . 94 

1 1.4  Thin-Plate  Spline  Method . 107 

11.5  Finite-Plate  Spline  Method . 125 

1 1.6  Inverse  Isoparametric  Method . 136 

12.  DESCRIPTION  OF  THE  APPLICATIONS  TEST  CASES . 145 

12.1  AGARD  445  Wing . 146 

12.2  Engine  Liner . 153 

12.3  Lifting-Body  Configuration . 157 

12.4  F-16  Wing  and  Strake . 167 

12.5  F-16  Flexible  Wing  with  Rigid  Body . 176 

13.  RESULTS  OF  THE  APPLICATIONS  TEST  CASES . 179 

13.1  AGARD  445  Wing . 179 

13.2  Engine  Liner  Results . 205 

13.3  Generic  Hypersonic  Vehicle  Results . 214 

13.4  F-16  Wing  and  Strake . 237 

13.5  F-16  Flexible  Wing  with  Rigid  Body . 259 

14.  CONCLUSIONS . 264 


15.  RECOMMENDATIONS  FOR  FURTHER  STUDY . 267 

16.  ACKNOWLEDGMENTS . 268 

17.  REFERENCES . 269 

APPENDIX  A . 270 

APPENDIX  B . 278 

APPENDIX  . . 297 


IV 


LIST  OF  FIGURES 


Figure  No.  Figure  Tide  Page  No. 

1  - 1 .  T ypical  Schematic  for  a  Coupled  CFD-CSD  Methodology . 2 

2- 1.  Elements  to  Consider  when  Choosing  a  CFD-CSD  Interpolative  Scheme . 4 

3- 1.  Survey  Letter  Which  was  Sent  to  US  Industry  and  Government  Facilities . 9 

8-1.  Representation  of  a  Wing  with  Two  Distinct  Sets  of  Grid  Points  and  the  Virtual 

Mesh . 44 

8-2.  (a)  Quadrilateral  Element  in  x  -  y  Plane;  (b)  Element  in  x  -  h  Plane . 44 

10-1.  A  Sampling  of  the  Grids  Used  for  the  Mathematical  Formulation . 51 

10-2.  A  Sampling  of  the  Mathematical  Functions  Evaluated  During  the  Test  Analysis . 53 

10- 3.  Comparison  of  the  Differences  in  the  Function  Values  for  a  Fine  Grid  Using 

Analytical  and  Interpolated  (from  Coarse  Grid)  Methods  to  Compute  the 

Function  Values . 56 

11- 1.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

the  Infinite-Plate  Spline  Method . 62 

11-2.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Shells  Using 

the  Infinite-Plate  Spline  Method . 62 

11-3.  Example  of  Oscillations  Induced  by  the  Infinite-Plate  Spline  Method  (Test  1)  for  a 

One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 63 

1 1-4.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function  Using  the  Infinite-Plate  Spline  Method . 64 

11-5.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal  Cycles 

Using  the  Infinite-Plate  Spline  Method . 64 

11-6.  Example  of  Oscillations  Induced  by  the  Infinite-Plate  Spline  Method  (Test  p)  for  a 

Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2. . . . 65 

11-7.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  the  Infinite-Plate  Spline  Method . 66 

11-8.  An  illustration  of  the  “potato  chip”  extrapolation  effect  encountered  in  the  Infinite- 

Plate  Spline  Method . 66 

11-9.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  1  and  4)  Using  the 

Infinite-Plate  Spline  Method . 67 

11-10.  CPU  Memory  Requirements  for  the  Infinite-Plate  Spline  Method  as  Implemented 

with  SVD  and  llireshold  Modification . 67 

11-11.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  T)^e  for  Plates  Using 

Multiquadrics . 78 

1 1-12.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Shells  Using 

Multiquadrics . 78 

11-13.  Example  of  Oscillations  Induced  by  the  Multiquadrics  Method  (Test  11)  for  a  One- 

Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 79 

11-14.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function . 80 

1 1-15.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal  Cycles 

on  the  Surface  Using  Multiquadtics . 80 

1 1-16.  Example  of  Oscillations  Induced  by  the  Multiquadrics  Method  (Test  Ip)  for  a 

Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 81 

1 1-17.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  Multiquadrics . 82 

11-18.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  4)  Using  Multiquadrics . 82 


V 


1 1-19.  Variation  of  the  Maximum  Error  as  Functions  of  the  Number  of  Subdomains  and 

Scaling  for  the  Multiquadrics  Method  (Test  Ip) . . . 83 

1 1-20.  CPU  Memory  Requirements  for  the  Multiquadrics  Method  as  Implemented  with 
10%  Overlapping  and  No  More  Than  11-20  Points  Along  Each  Direction  of  the 

Subdomain . 83 

11-21.  Influence  of  the  Size  of  the  Overlapping  Region  and  the  Subdomaining  on  the 
Memory  Requirement  for  a  Hypothetical  Test  Case  (input  grid  =  150  x  150; 

output  grid  =  200  X  200)  for  the  Multiquadrics  Method . 84 

1 1-22.  Influence  of  Subdomaining  on  the  Memory  Requirement  and  CPU  Time  for 

Multiquadrics  Method  (Test  Ip) . . . 84 

1 1-23.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

the  NUBS  Method . 96 

1 1-24.  Example  of  Oscillations  Induced  by  the  NUBS  Method  (Test  1)  for  a  One-Cycle 

Sinusoidal  Function  at  a  Peak-to-Peak  Amphtude  of  2 . 97 

11-25.  Example  of  Oscillations  Induced  by  the  NUBS  Method  (Test  p)  for  a  Three-Cycle 

Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . . . 98 

1 1  -26.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

the  NUBS  Method . 99 

11-27.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3)  For 

the  NUBS  Method . 99 

1 1-28.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  1  and  4) . 100 

1 1-29.  CPU  Memory  Requirements  for  the  Non-Uniform  B-Spline  Method . 100 

11-30.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

Thin-Plate  Splines . 110 

11-31.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Shells  Using 

Thin-Plate  Splines . 110 

1 1-32.  Example  of  Oscillations  Induced  by  the  Thin-Plate  Spline  Method  (Test  11)  for  a 

One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . Ill 

11-33.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function  Using  Thin-Plate  Splines . 112 

11-34.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal  Cycles 

on  the  Surface  Using  Thin-Plate  Splines . 112 

11-35.  Example  of  Oscillations  Induced  by  the  Thin-Plate  Spline  Method  (Test  1  p)  for  a 

Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 113 

11-36.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  Thin-Plate  Splines . . . . . 1 14 

11-37.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  4)  Using  Thin-Plate 

Splines . 114 

11-38.  Variation  of  the  Maximum  Error  as  Functions  of  the  Number  of  Subdomains  and 

the  Presence  or  Absence  of  Scaling  for  the  Thin-Plate  Spline  Method  (Test  Ip) . 115 

1 1-39.  CPU  Memory  Requirements  for  the  Thin-Plate  Spline  Method  as  Implernented 

with  10%  Overlapping  and  No  More  than  20  Points  Along  Each  Direction  of  the 

Subdomain . 115 

1 1-40.  Influence  of  the  Size  of  the  Overlapping  Region  and  the  Subdomaining  on  the 
Memory  Requirement  for  a  Hypothetical  Test  Case  (input  grid  =  150  x  150; 

output  grid  =  200  ¥  200)  for  the  Thin-Plate  Spline  Method . 116 

11-41.  Influence  of  Subdomaining  on  the  Memory  Requirement  and  CPU  Time  for 

Thin-Plate  Spline  Method  (Test  Ip) . 116 

11-42.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates 

(refined  mesh  along  the  varying  function)  Using  Finite-Plate  Splines . 128 

11-43.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  (crude 

mesh  along  the  varying  function)  Using  Finite-Plate  Splines . 128 

11-44.  Example  of  Oscillations  Induced  by  the  Finite-Plate  SpUne  Method  (Test  11)  for  a 

One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 129 


VI 


1 1  -45 .  V ariation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function . 130 

11-46.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal  Cycles 

on  the  Surface  Using  Finite-Plate  Splines . 130 

1 1-47.  Example  of  Oscillations  Induced  by  the  Finite-Plate  Spline  Method  (Test  Ip)  for  a 

Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 131 

1 1-48.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  Finite-Plate  Splines . 132 

1 1-49.  CPU  Memory  Requirements  for  the  Finite  Plate  Method  Implemented  with  a 

Maximum  of  60  Quadrilateral  Elements  in  the  Virtual  Mesh . 132 

1 1-50.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  Using  the 
Inverse  Isoparametric  Method  (Regular  Grid  Errors  are  all  0.0  and  are  not 

Plotted) . 138 

11-51.  Example  of  Oscillations  Induced  by  the  Inverse  Isoparametric  Method  (Test  1)  for 

a  Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 139 

11-52.  Variation  of  Error  for  Test  Set  One  Based  Upon  Number  of  Sinusoidal  Cycles 

Using  the  Inverse  Isoparametric  Method . 140 

11-53.  Example  of  Oscillations  Induced  by  the  Inverse  Isoparametric  Method  (Test  p)  for 

a  Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 . 141 

1 1-54.  Variation  of  Error  for  Test  Set  4  Based  Upon  Number  of  Sinusoidal  Cycles 

Using  the  Inverse  Isoparametric  Method . 142 

11- 55.  CPU  Memory  Requirements  for  the  Inverse  Isoparametric  Method . 142 

12- 1 .  AGARD  445  Wing  Structural  Grid  (Undeflected) . 147 

12-2.  AGARD  445  Wing  Aerodynamic  Grid  (Undeflected) . 147 

12-3.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  1 . 148 

12-4.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  2 . 149 

12-5.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  3 . 150 

12-6.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  4 . 151 

12-7.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  5 . 152 

12-8.  Structural  Grid  for  the  Engine  Liner  Applications  Test  Case . 153 

12-9.  The  Aerodynamic  Grid  for  the  Engine  Liner  Applications  Test  Case . 154 

12-10.  Engine  Liner  Mode  Shape  1  for  the  Structural  Grid . 154 

12-11.  Engine  Liner  Mode  Shape  2  for  the  Structural  Grid . 155 

12-12.  Engine  Liner  Mode  Shape  3  for  the  Structural  Grid . 155 

12-13.  Engine  Liner  Mode  Shape  4  for  the  Structural  Grid . 156 

12-14.  Engine  Liner  Mode  Shape  5  for  the  Structural  Grid . 156 

12-16.  Generic  Hypersonic  Vehicle  Aerodynamic  Grid . 159 

12-17.  Generic  Hypersonic  Vehicle  Mode  1  for  the  Structural  Grid . 160 

12-18.  Generic  Hypersonic  Vehicle  Mode  2  for  the  Structural  Grid . 161 

12-19.  Generic  Hypersonic  Vehicle  Mode  3  for  the  Structural  Grid . 162 

12-20.  Generic  Hypersonic  Vehicle  Mode  4  for  the  Structural  Grid . 163 

12-2 1 .  Generic  Hypersonic  Vehicle  Mode  5  for  the  Structural  Grid . 164 

12-22.  Generic  Hypersonic  Vehicle  Mode  6  for  the  Structural  Grid . 165 

12-23.  Generic  Hypersonic  Vehicle  Mode  7  for  the  Structural  Grid . 166 

12-24.  F-16  Wing  Structural  Grid . 168 

12-25.  F-16  Win^Strake  Aerodynamic  Grid . 168 

12-26.  F-16  Wing  Mode  Shape  1 . 169 

12-27.  F-16  Wing  Mode  Shape  2 . 170 

12-28.  F-16  Wing  Mode  Shape  3 . 171 

12-29.  F-16  Wing  Mode  Shape  4 . 172 

12-30.  F-16  Wing  Mode  Shape  5 . 173 

12-31.  F-16  Wing  Mode  Shape  6 . 174 

12-32.  F-16  Wing  Mode  Shape  7 . 175 

12-33.  F-16  Flexible  Wing  Structural  Mesh . 177 


vii 


12-34.  F-16  Flexible  Wing  Aerodynamic  Surface  Grid . 177 

12-35.  F-16  Wing  Structural  Influence  Coefficients . 178 

12-36.  F-16  Wing  Pressures . 178 

12- 36.  F-16  Wing  Aerodynamic  Loading . 178 

13- 1.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  1 . 180 

13-2.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  2 . 181 

13-3.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  3 . 182 

13-4.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  4 . 183 

13-5.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  5 . 184 

13-6.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  1 . 185 

13-7.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  2 . 186 

13-8.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  3 . 187 

13-9.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  4 . 188 

13-10.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  5 . 189 

13-11.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  1 . 190 

13-12.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  2 . 191 

13-13.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  3 . 192 

13-14.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  4 . 193 

13-15.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  5 . 194 

13-16.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  1 . 195 

13-17.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  2 . 196 

13-18.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  3 . 197 

13-19.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  4 . 198 

13-20.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  5  . . . 199 

13-21.  Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  1 . 200 

13-22.  Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  2 . 201 

13-23.  Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  3 . 202 

13-24.  Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  4 . 203 

13-25.  Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  5 . 204 

13-26.  Engine  Liner  Mode  Shape  1  Using  Infinite-Plate  Spline  Method . 206 

13-27.  Engine  Liner  Mode  Shape  2  Using  Infinite-Plate  Spline  Method . 206 

13-28.  Engine  Liner  Mode  Shape  3  Using  Infinite-Plate  Spline  Method . 207 

13-29.  Engine  Liner  Mode  Shape  4  Using  Infinite-Plate  Spline  Method . 207 

13-30.  Engine  Liner  Mode  Shape  5  Using  Infinite-Plate  Spline  Method . 208 

13-31.  Engine  Liner  Mode  Shape  1  Using  Multiquadrics  Method . 208 

1 3-32.  Engine  Liner  Mode  Shape  2  Using  Multiquadrics  Method . 209 

13-33.  Engine  Liner  Mode  Shape  3  Using  Multiquadrics  Method . 209 

13-34.  Engine  Liner  Mode  Shape  4  Using  Multiquadrics  Method . 210 

13-35.  Engine  Liner  Mode  Shape  5  Using  Multiquadrics  Method . 210 

13-36.  Engine  Liner  Mode  Shape  1  Using  Thin-Plate  Spline  Method  (Scaled) . 211 

13-37.  Engine  Liner  Mode  Shape  2  Using  Thin-Plate  Spline  Method  (Scaled) . 211 

13-38.  Engine  Liner  Mode  Shape  3  Using  Thin-Plate  Spline  Method  (Scaled) . 212 

1 3-39.  Engine  Liner  Mode  Shape  4  Using  Thin-Plate  Spline  Method  (Scaled) . 212 

13-40.  Engine  Liner  Mode  Shape  5  Using  Thin-Plate  Spline  Method  (Scaled) . . . . 213 

13-41 .  Interpolation  of  Generic  Hypersonic  Model  Mode  1  by  Infinite-Plate  Spline 

Method . 215 

13-42.  Interpolation  of  Generic  Hypersonic  Model  Mode  2  by  Infinite-Plate  Spline 

Method . . . : . 216 

13-43.  Interpolation  of  Generic  Hypersonic  Model  Mode  3  by  Infinite-Plate  Spline 

Method . . . : . 217 

13-44.  Interpolation  of  Generic  Hypersonic  Model  Mode  4  by  Infinite-Plate  Spline 

Method . 218 

13-45.  Interpolation  of  Generic  Hypersonic  Model  Mode  5  by  Infinite-Plate  Spline 

Method . 219 


viii 


13-46.  Inteq)olation  of  Generic  Hypersonic  Model  Mode  6  by  Infinite-Plate  Spline 

Method . 220 

13-47.  Interpolation  of  Generic  Hypersonic  Model  Mode  7  by  Infinite-Plate  Spline 

Method . 221 

13-48.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  1  by  Multiquadrics  with 

Scaling . 222 

13-49.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  2  by  Multiquadrics  with 

Scaling . 223 

13-50.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  3  by  Multiquadrics  with 

Scaling . 224 

13-5 1 .  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  4  by  Multiquadrics  with 

Scaling . 225 

13-52.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  5  by  Multiquadrics  with 

Scaling . 226 

13-53.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  6  by  Multiquadrics  with 

Sc^ng . 227 

13-54.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  7  by  Multiquadrics  with 

Sc^ng . 228 

13-55.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  1  by  Thin-Plate  Spline 

Method  with  Scaling . 229 

13-56.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  2  by  Thin-Plate  Spline 

Method  with  Scaling . 230 

13-57.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  3  by  Thin-Plate  Spline 

Method  with  Scaling . 231 

13-58.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  4  by  Thin-Plate  Spline 

Method  with  Scaling . 232 

13-59.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  5  by  Thin-Plate  Spline 

Method  with  Scaling . 233 

13-60.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  6  by  Thin-Plate  Spline 

Method  with  Scaling . 234 

13-61.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  7  by  Thin  Plate  Method 

wiA  Scaling . 235 

13-62.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  1  by  Multiquadrics 

wiAout  Scaling . 236 

13-63.  F-16  Wing  and  Strake  Mode  Shape  1  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 238 

13-64.  F-16  Wing  and  Strake  Mode  Shape  2  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 239 

13-65.  F-16  Wing  and  Strake  Mode  Shape  3  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 240 

13-66.  F-16  Wing  and  Strake  Mode  Shape  4  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 241 

13-67.  F-16  Wing  and  Strake  Mode  Shape  5  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 242 

13-68.  F-16  Wing  and  Strake  Mode  Shape  6  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 243 

13-69.  F-16  Wing  and  Strake  Mode  Shape  7  Interpolations  Using  the  Infinite  Plate 

Spline  Method . 244 

13-70.  F-16  Wing  and  Strake  Mode  Shape  1  Interpolations  Using  the  Multiquadrics 

Method . 245 

13-71.  F-16  Wing  and  Strake  Mode  Shape  2  Interpolations  Using  the  Multiquadrics 

Method . 246 

13-72.  F-16  Wing  and  Strake  Mode  Shape  3  Interpolations  Using  the  Multiquadrics 

Method . 247 


IX 


13-73. 

13-74. 

13-75. 

13-76. 

13-77. 

13-78. 

13-79. 

13-80. 

13-81. 

13-82. 

13-83. 

13-84. 

13-85. 

13-86. 

13-87. 

13-88. 


F-16  Wing  and  Strake  Mode  Shape  4  Interpolations  Using  the  Multiquadrics 

Method . 

F-16  Wing  and  Strake  Mode  Shape  5  Interpolations  Using  the  Multiquadrics 

Method . 

F-16  Wing  and  Strake  Mode  Shape  6  Interpolations  Using  the  Multiquadrics 

Method . 

F-16  Wing  and  Strake  Mode  Shape  7  Interpolations  Using  the  Multiquadrics 

Method . 

F-16  Wing  and  Strake  Mode  Shape  1  Interpolations  Using  the  Thin-Plate  Spline 

Method . •••• 

F-16  Wing  and  Strake  Mode  Shape  2  Interpolations  Using  the  Thin-Plate  Spline 

Method . . . . . 

F-16  Wing  and  Strake  Mode  Shape  3  Interpolations  Using  the  Thin-Plate  Spline 

Method . •• 

F-16  Wing  and  Strake  Mode  Shape  4  Interpolations  Using  the  Thin-Plate  Spline 

Method . ;••• 

F-16  Wing  and  Strake  Mode  Shape  5  Interpolations  Using  the  Thin-Plate  Spline 

Method . ;••• 

F-16  Wing  and  Strake  Mode  Shape  6  Interpolations  Using  the  Thin-Plate  Spline 

Method . ;••• 

F-16  Wing  and  Strake  Mode  Shape  7  Interpolations  Using  the  Thin-Plate  Spline 

Method . . 

F-16  Wing  Structural  Influence  Coefficients  Using  Infinite-Plate  Splines . 

F-16  Wing  Structural  Influence  Coefficients  Using  Multiquadrics. . . 

F-16  Wing  Structural  Influence  Coefficients  Using  Thin-Bate  Splines . 

F-16  Wing  Loads  Calculation  Using  Multiquadrics . 

F-16  Wing  Loads  Calculation  Using  Thin-Plate  Splines . 


248 

249 

250 

251 

252 

253 

254 

255 

,256 

,257 

.258 

,261 

.261 

.262 

.263 

.263 


X 


LIST  OF  TABLES 


Table  No.  Title  Page  No. 

3. 1  Evaluation  of  Interpolation  Methods  by  Franke . 7 

3.2  Compilation  of  the  Aeroelastic  Survey . 10 

11.1  Statistical  Summary  of  Test  Set  1  using  Infinite-Plate  Spline . 68 

1 1 .2  Statistical  Summary  of  Test  Set  2  using  Infinite-Plate  Spline . 70 

11.3  Statistical  Summary  of  Test  Set  3  using  Infmite-Plate  Splines . 71 

1 1 .4  Statistical  Summary  of  Test  Set  4  using  Infmite-Plate  Splines . 72 

1 1.5  Statistical  Summary  of  Test  Set  1  (Partial)  using  Single  Precision  Infmite-Plate 

Splines . 73 

1 1.6  Statistical  Summary  of  Test  Set  1  using  Multiquadrics . 85 

1 1 .7  Statistical  Summary  of  Test  Set  2  using  Multiquadrics . 88 

11.8  Statistical  Summary  of  Test  Set  3  using  Multiquadrics . 89 

1 1 .9  Statistical  Summary  of  Test  Set  4  using  Multiquadrics . 91 

11.10  Statistical  Summary  of  Test  Set  5  using  Multiquadiics  with  no  Scaling . 92 

11.11  Statistical  Summary  of  Test  Set  5  using  Multiquadrics  with  Scaling . 93 

1 1.12  Statistical  Summary  of  Test  Set  1  using  Non-Uniform  B-Splines . 101 

11.13  Statistical  Summary  of  Test  Set  2  using  Non-Uniform  B-Splines . 104 

1 1.14  Statistical  Summary  of  Test  Set  3  using  Non-Uniform  B-Splines . 105 

1 1.15  Statistical  Summary  of  Test  Set  4  using  Non-Uniform  B-Splines . 106 

1 1.16  Statistical  Summary  of  Test  Set  1  using  Thin-Plate  Splines . 117 

1 1.17  Statistical  Summary  of  Test  Set  2  using  Thin-Plate  Splines . 120 

1 1.18  Statistical  Summary  of  Test  Set  3  using  Thin-Plate  Splines . 121 

1 1.19  Statistical  Summary  of  Test  Set  4  using  Thin-Plate  Splines . 122 

1 1.20  Statistical  Summary  of  Test  Set  5  using  Thin-Plate  Splines  without  Scaling  the 

Data . 123 

1 1.21  Statistical  Summary  of  Test  Set  5  using  Thin-Plate  Splines  and  Scaling  the  Data . 124 

1 1.22  Statistical  Summary  of  Test  Set  1  using  Finite-Plate  Splines . 133 

1 1 .23  Statistical  Summary  of  Test  Set  2  using  Finite-Plate  Splines . 134 

1 1.24  Statistical  Summary  of  Test  Set  3  using  Finite-Plate  Splines . 134 

1 1.25  Statistical  Summary  of  Test  Set  5  using  Finite-Plate  Splines . 135 

1 1.26  Statistical  Summary  of  Test  Set  1  using  Inverse  Isoparametric  Mapping . 143 

1 1.27  Statistical  Summary  of  Test  Set  4  using  Inverse  Isoparametric  Mapping . 144 

13.1  Maximum  Deflections  For  the  AGARD  445  Wing  Mode  Shapes . 179 

13.2  Maximum  Deflections  For  the  Engine  Liner  Mode  Shapes . 205 

13.3  Maximum  Deflections  For  the  Generic  Hypersonic  Mode  Shape  1 . 214 

14. 1  Evaluation  of  the  Algorithm  Performance  Using  the  Analytical  Test  Cases . 265 

14.2  Limitations  on  Methodologies,  As  Noted  During  the  Applications  Test  Cases . 266 


XI 


FOREWORD 


This  report  summarizes  the  results  of  an  investigation  into  different  methodologies  to  effect  the 
transfer  of  information  from  a  Computational  Huid  Dynamics  (CFD)  solution  grid  to/from  a 
Computational  Structural  Dynamics  (CSD)  solution  grid.  These  data  can  include  geometry 
deformations,  slopes  and  loads.  It  is  important  that  the  transfer  of  this  information  provide 
smooth,  yet  accurate  conversions  of  all  types  of  functions  that  may  be  represented  by  these  data 
(constants,  linear  functions,  sinusoidal  functions). 

This  research  was  conducted  as  Task  001  under  the  Aeromechanics  Task  Order  Contract  awarded 
to  the  Georgia  Tech  Research  Institute  in  September  1994.  The  research  was  conducted  from 
September  1994  to  September  1995.  This  work  was  funded  under  Air  Force  contract  F336 15-94- 
C-3010  for  the  Aeronautical  Systems  Center,  Wright-Patterson  Air  Force  Base,  Ohio.  The 
program  technical  monitor  was  Dr.  Don  Kinsey.  The  task  technical  monitor  was  Capt.  Ken  Moran 
of  the  CFD  Research  Branch  of  Wright  Laboratory,  Wright-Patterson  Air  Force  Base,  Ohio. 

The  program  manager  for  the  Aeromechanics  Task  Order  Contract  at  the  Georgia  Tech  Research 
Institute  was  Mr.  Robert  Englar.  The  principal  investigators  for  this  project  were  Dr.  Marilyn  J . 
Smith  of  the  Aerospace  Laboratory,  Acoustics  and  Aerodynamics  Brmch,  Georgia  Tech  R^earch 
Institute  and  Dr.  Dewey  H.  Hodges  of  the  School  of  Aerospace  Engineering,  Georgia  Institute  of 
Technology.  The  principal  investigators  were  assisted  by  Dr.  Carlos  E.  S.  Cesnik  of  the  School  of 
Aerospace  Engineering,  Georgia  Institute  of  Technology. 
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1.  INTRODUCTION 


Over  the  past  decade,  intensive  research  has  been  invested  to  develop  Computational  Fluid 
Dynamics  (CFD)  methodologies  for  analysis  and  design  of  fixed  wing  aircraft.  These 
methodologies  range  from  panel  methods  based  on  the  potential  equations  to  the  solution  of  the  full 
time-averaged  Navier-Stokes  equations.  Grid  topologies  range  from  regular,  Cartesian  structured 
grids  to  unstructured,  curvilinear  grids. 

In  most  instances  these  CFD  methodologies  have  become  relatively  mature,  so  that  the  focus  of 
current  research  and  utilization  of  these  methodologies  is  in  more  complex,  interdisciplinary 
problems.  One  of  these  interdisciplinary  applications  is  Computational  Aeroelasticity  (CAE). 
Traditionally,  CFD  methods  have  been  applied  to  rigid  configurations.  In  flight,  aircraft 
components  are  rarely,  if  ever,  completely  rigid.  The  flexibility  of  die  structure  has  a  direct  impact 
on  aircraft  performance,  loads,  maneuverability  and  flight  controls,  etc.  Thus,  the  ability  of  CFD 
methods  to  capture  this  flexibility  can  improve  the  capability  of  designers  and  analysts  to 
understand  the  complex  interaction  of  unsteady  aerodynamics  and  structural  dynamics.  This 
understanding  can  ultimately  lead  to  a  reduction  in  production  and  development  costs  by 
identifying  deficiencies  during  the  design/analysis  phase  of  development.  Additionally,  this 
capability  can  aid  in  the  analysis  of  problems  that  develop  in  the  field  as  the  role  of  aircraft  is 
redefined  and  expanded. 

There  are  three  primary  classes  of  high-level  dynamic  computational  aeroelastic  methodologies,  all 
of  which  can  benefit  from  more  accurate  interface  methodologies.  The  first  class,  and  currently  the 
most  widely  used,  is  a  closely  or  tightly  coupled  aeroelastic  analysis,  examples  of  which  are 
ENS3DAE  [1],  ENSAERO  [2],  and  CFL3DAE  [3].  A  schematic  of  the  typical  procedure  used  by 
these  methods  is  shown  in  Figure  1-1.  The  aerodynamic  and  structural  dynamics  modules  remain 
independent  in  their  solutions,  and  their  interaction  is  limited  to  the  passage  of  surface  loads  and 
surface  deformation  information. 

The  second  class  of  methodologies  is  known  as  a  fuUy-coupled  analysis  or  unified  fluid-structure 
interaction.  This  method  involves  the  reformulation  of  the  governing  equations  where  both  the 
fluid  and  structural  equations  are  combined  into  one  set  of  equations.  These  new  governing 
equations  are  solved  and  integrated  in  time  simultaneously.  An  example  of  this  appUcation  is  the 
research  code  developed  by  Guruswamy  [4].  Each  of  these  two  methods  has  advantages  and 
disadvantages,  but  both  methods  are  constrained  in  that  the  grid  must  be  updated  at  each  iteration 
where  deflections  occur. 

The  development  of  these  two  classes  of  aeroelastic  methodologies  is  very  expensive.  In  addition, 
there  has  been  a  large  investment  of  funds  and  manpower  in  the  development  of  classical,  rigid 
CFD  analyses  that  have  been  tailored  specifically  to  different  applications  which  may  require 
completely  different  methodologies  to  provide  accurate  simulation  results.  Moreover,  the  learning 
curve  for  a  new  CFD  methodology  can  be  prohibitive  in  some  instances.  These  factors  have  led  to 
the  development  of  a  third  class  of  aeroelastic  methodology,  a  loosely-coupled  analysis.  This 
methodology  uses  CFD  analyses  which  are  updated  by  surface  deflections  only  after  partial  or  full 
convergence  of  the  aerodynamic  loads.  Thus  grid  deflection  updates  are  performed  sparingly, 
usually  3-10  times  per  analysis.  Using  this  concept,  development  of  a  methodology  which  links, 
in  general,  any  CFD  code  with  any  Computation^  Structural  Dynamics  (CSD)  methodology  is 
desired  to  accomplish  a  loosely-coupled  aeroelastic  analysis  without  the  cost  and  time  constraints 
of  the  detailed  aeroelastic  codes. 
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Figure  1-1.  Typical  Schematic  for  a  Coupled  CFD-CSD  Methodology. 


Although  the  transfer  of  geometry  deformation  data  between  CFD  and  CSD  methods  seems  at  first 
to  be  trivial,  this  is  far  from  the  case.  The  primary  difficulty  lies  in  the  basic  differences  between 
the  nature  of  the  methods.  CFD  analyses  are  concerned  with  the  flow  field  surrounding  the  surface 
exposed  to  the  flow.  For  example,  flow  around  a  rigid  airfoil  is  dependent  only  on  the  profile  of 
the  airfoil.  The  internal  structure  that  forms  the  shape  of  the  airfoil  is  immaterial.  Conversely, 
CSD  methods  examine  the  airloads  on  the  surface  and  how  these  loads  affect  the  internal  structure 
of  die  airfoil.  Thus,  a  CFD  grid  is  very  fine  around  the  exterior  of  the  airfoil,  wherever  the 
changes  in  the  flow  field  characteristics  are  expected  to  be  a  maximum.  The  CSD  grid  may  be  both 
on  the  surface  and  within  the  interior  of  the  airfoil,  and  is  oriented  to  the  structural  components. 
Thus,  the  CFD  and  CSD  grids  are  not  only  different  in  grid  density,  but  quite  likely  the  transfer  of 
data  between  the  two  grids  requires  extrapolation  and  interpolation. 

The  linear  and  surface  splines  in  use  today  were  developed  for  beam  and  plate  models  and  are  not 
suitable  in  many  applications  to  the  shell  structures  that  are  being  analyzed  in  the  cvment  state-of- 
the-art  aeroelastic  codes.  These  methods  may  introduce  oscillations,  discontinuities,  or  poor 
accuracy  in  the  surface  deformations,  thus  producing  large  errors  in  the  final  solution.  This  is 
particularly  true  for  leading  and  trailing  edges  of  wings  and  other  regions  of  high  curvature.  A 
systematic  method  is  necessary  to  examine  existing  interpolation  schemes,  assess  their  strengths 
and  weaknesses,  modify  them  to  enhance  their  usefulness  (or  develop  new  ones),  and  analytically 
assess  their  applicability  for  a  wide  range  of  problems. 
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2.  APPROACH 


A  full  review  of  algorithms  that  may  be  used  for  this  application  has  been  undertaken  as  part  of  the 
development  of  a  generic  interface  method.  In  addition,  the  manner  through  which  information  is 
passed  from  the  fluid  regime  to  the  structural  regime  has  been  examined.  The  top  candidates  have 
been  selected  using  the  criteria  of  accuracy,  smoothness,  ease  of  use,  robustness,  and  efficiency, 
as  shown  in  Figure  2-1.  These  candidates  have  undergone  stringent  mathematical  analyses  to 
examine  their  suitability  in  this  application. 

The  first  subtask  of  this  research  was  to  perform  an  extensive  literature  search.  The  literature 
search  served  two  primary  purposes:  1)  to  identify  or  eliminate  possible  interpolation  schemes 
based  on  previous  research,  and  2)  to  aid  in  and  reduce  the  amount  of  investigation  which  must  be 
done  to  determine  the  suitability  of  a  potential  scheme.  This  literature  search  encompassed  not  only 
methods  appUed  to  CFD-CSD  interpolation,  but  also  to  other  engineering  disciplines,  as  well  as 
mathematical  or  scientific  (physics,  geology,  meteorology,  etc.)  applications. 

The  selection  of  candidate  algorithms  was  made  on  the  basis  of  the  results  of  the  literature  search, 
as  well  as  the  experience  of  the  principal  investigators.  In  addition,  the  selection  of  possible 
candidates  was  made  on  the  basis  of  the  criteria  in  Figure  2-1,  and  the  availability  of  sufficiently 
detailed  technical  information  for  implementation. 

Analytical  analyses  have  been  performed  to  examine  the  behavior  of  the  functions  in  simations  that 
may  be  encountered  in  applications  and  that  isolate  specific  behaviors  such  as  smoothness  and 
extrapolation.  In  addition,  the  functions  were  analyzed  for  their  characteristics  in  one-,  two-  and 
three-dimensional  applications.  Since  these  functions  must  provide  both  interpolation  and 
extrapolation,  the  characteristics  of  their  behavior  limits  of  operation  were  examined.  Additionally, 
the  algorithm’s  behavior  was  assessed  for  both  flat  and  highly-curved  contours. 

Once  the  algorithms  were  evaluated  from  an  analytical  viewpoint,  they  were  also  evaluated  using  a 
number  of  acmal  test  cases  under  study  in  current  research  initiatives.  These  test  cases  included 
wings  (AGARD  445,  F-16),  a  wing-body-vertical  tail  with  rigid  body  (F-16),  an  engine 
component  (axisymmetric  engine  liner),  and  a  lifting-body  (generic  hypersonic  vehicle). 

The  report  is  structured  to  provide  a  concise  overview  of  the  research  project.  The  results  of  the 
literature  search  are  discussed  in  Chapter  3.  The  mathematical  formulation  of  each  method  tested  is 
discussed  in  Chapters  4-9.  Next,  the  analytical  test  cases  are  described  in  Chapter  10,  followed 
by  a  description  of  each  method’s  performance  in  Chapter  1 1.  In  Chapter  12,  the  applications  test 
cases  are  described,  with  the  results  discussed  in  Chapter  13.  Chapters  14  and  15  provide 
conclusions  and  recommendations,  respectively. 


3 


Configuration 
Structure  :  Beam,  Plate,  Shell 
Type  ;  Internal,  External  Flow 


CSD  Scheme 
Model :  Deformations,  Slopes,  Accelerations 
Scheme  :  Mode  Shape,  Structural  Matrix 


CFD  Scheme 

Algorithm  :  Finite-Difference,  Finite- Volume,  Finite  Element 

Grid  Requirements  :  Surface  Grid  (Panel  Methods),  Flowfield  Domain  Grids  (FPE,E/N-S) 
Grid  Type  :  Structured,  Unstructured,  Adaptiye,  Chimera _ _ 


Interface  Method 

-  Initial  Conversion  of  Structural  Data  to  CFD  Grid  Nodes 

-  Update  Deflections,  Slopes,  etc.  at  Each  Iteration 


Computational  Resources 
(Cray  or  Workstation) 


Final  Results  /  Applications 
Accuracy  -  Performance,  Flowfield  Analysis 
Smoothness  -  LO  Integration 

Figure  2-1.  Elements  to  Consider  when  Choosing  a  CFD-CSD  Interpolative  Scheme 
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3.  LITERATURE  SURVEY 


The  literature  survey  for  this  research  project  was  designed  to  accomplish  two  goals.  First,  it  was 
imperative  to  determine  what  methods  are  currently  being  used  for  the  purpose  of  interfacing 
different  grid  topologies  and  their  limitations.  Second,  the  problem  of  manipulation  of  this  type  of 
data  is  not  exclusive  to  the  field  of  CFD/CSD  interfacing.  Thus,  it  was  necessary  to  determine 
what  methods  are  being  applied  or  have  been  rejected  by  other  disciplines. 

The  overall  literature  search  was  initially  accomplished  over  a  two-month  period,  with  additional 
research  for  specific  information  throughout  the  execution  of  this  project.  The  initial  literature 
search  consisted  of  books,  proceedings  of  conferences,  journals,  and  government  reports.  A 
series  of  keywords  was  utilized  to  narrow  the  search  to  the  pertinent  area  of  interest.  These 
keywords  included: 

Aeroelasticity  and  Computational  Fluid  Dynamics 
Aeroelasticity  and  Guruswamy 
Aeroelasticity  and  Finite  Element  Methods 
Aeroelasticity  and  Interpolation 
Aeroelasticity  and  Extrapolation 
Bivariate  Interpolation 
Multivariate  Interpolation 
CFD  and  Extrapolation 
CFD  and  Interpolation 
CFD  and  Aerodynamic  Loads 
Polynomial  Interpolation 
Spline 

Transfmite  Interpolation 

For  these  keywords,  an  initial  list  of  500  abstracts  was  extracted.  Each  abstract  was  reviewed  to 
determine  its  pertinence  and  applicability  to  this  research.  From  this  list,  30  documents  were 
obtained  that  were  relevant  to  tliis  research.  From  these  30  references,  an  additional  70  documents 
were  reviewed.  A  list  of  these  references  is  included  in  Appendix  A. 

The  results  of  the  literature  search  yielded  a  number  of  methods  that  appeared  to  be  promising. 
These  methods  included:  B-splines,  infinite-plate  splines,  finite  surface  splines,  k-vertex  splines, 
and  F-surfaces.  These  methods  have  been  previously  applied  to  aeroelastic  interface  problems, 
finite  element  analyses,  CAD  design  systems  or  terrain  mapping  systems. 

Each  of  these  methods  was  initially  screened  for  positive  characteristics  based  on  their 
mathematical  derivations  or  their  performance  in  direct  applications.  The  characteristics  that  were 
reviewed  include: 

accuracy-  How  accurate  is  the  scheme  for  predicting  interior  data  and 

reproducing  endpoints?  How  sensitive  is  it  to  scaling  factors? 
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smoothness  - 


diminishing  variation  - 


robustness  - 

extrapolation  - 
CPU  memory  - 
CPU  time  - 


Was  the  surface  generated  by  the  scheme  smooth  (C°  continuity)  or 
were  oscillations  introduced? 

As  the  interpolated  data  become  finer,  does  the  scheme  preserve 
monotonicity? 

Can  the  scheme  handle  a  wide  range  of  data  interpolation  ranging 
from  flat  surfaces  to  surfaces  with  high-frequency  oscillations? 

How  well  does  the  scheme  handle  extrapolations? 

How  expensive  in  memory  is  the  scheme? 

How  efficient  is  the  scheme? 


The  range  of  methods  that  appeared  to  have  merit  for  further  analysis  was  too  large  to  be 
adequately  accomplished  during  this  research  project.  Thus,  further  reduction  was  required. 
During  the  1970’s  and  1980’ s,  Richard  Franke  investigated  a  number  of  scattered  dato 
interpolation  methods  for  two-dimensional  problems.  His  results  [5]  were  very  instrumental  m 
determining  which  methods  should  be  extended  to  three  dimensions  and  tested  further  in  this 
study.  This  work  was  primarily  used  to  eliminate  those  methods  identified  in  the  literature  search 
that  proved  to  be  less  than  adequate  during  Franke’ s  studies.  Conversely,  identified  inethods  that 
had  excellent  results  reported  by  Franke  were  incorporated  into  this  study.  Specifically,  the 
Multiquadrics  method  by  Hardy  and  the  Thin-Plate  Spline  method  by  Duchon  were  described  by 
Franke  to  have  excellent  characteristics  in  two  dimensions.  Franke’s  evaluation  table  [5]  is 
reproduced  here  as  Table  3.1  for  easy  reference. 

In  addition  to  the  literature  search,  a  survey  was  sent  out  by  Mr.  Larry  Huttsell  of  Wright 
Laboratory  (FIB)  to  determine  what  methods  are  currently  in  use  for  aeroelastic  interfaces,  which 
may  not  be  available  in  technical  journals  or  reports.  The  survey  form  is  included  as  Figure  3-1. 
The  results  of  the  survey  are  tabulated  in  Table  3.2.  The  survey  yielded  thirteen  responses  from 
the  United  States.  The  primary  aeroelastic  methods  in  use  in  industry  appear  to  be  those  which 
rely  on  lower-order  aerod5mamic  methods,  including  panel  methods  and  lifting-line  and  lifting- 
surface  methods.  The  aeroelastic  option  in  MSC/NASTRAN  has  a  number  of  industry  users. 
Euler  and  Navier-Stokes  methods  appear  to  still  be  in  development,  as  the  only  sources  of  these  are 
government  agencies  or  universities  under  contract  to  government  agencies.  The  prraary  method 
of  interfacing  between  the  structural  and  aerodynamic  grids  is  the  Infinite-Plate  Spline  of  Harder 
and  Desmarais,  as  implemented  in  MSCVNASTRAN  and  a  number  of  independent  codes.  The 
next  most  popular  method  is  the  use  of  shape  functions  in  beam  and  plate  representations.  A 
number  of  researchers  responded  that  the  accuracy  of  their  method  could  not  be  readily  determined 
because  of  the  lack  of  good  graphics.  Extrapolation  was  also  mentioned  as  a  problem  by  several 
engineers.  The  results  of  this  survey  were  used  to  help  choose  methods  that  appeared  to  work  well 
(shape  functions),  as  well  as  to  analyze  methods  which  are  in  use,  but  have  significant  limitations 
(Infinite-Plate  Spline). 


As  a  result  of  this  literature  survey,  the  following  methods  were  chosen  for  further  analysis: 

Infinite-Plate  Spline  by  Harder  and  Desmarais  -  now  in  use  in  many  aeroelastic  methods 
Finite-Plate  Spline  by  Appa  -  now  in  use  in  several  aeroelastic  methods 
Biharmonic-Multiquadric  by  Hardy  -  rated  excellent  by  Franke 
Thin-Plate  Splines  by  Duchon  -  rated  excellent  by  Franke 

Inverse  Isoparametric  Mapping  —  a  shape  function  method  with  some  promising  results  (at 
the  commencement  of  Ais  research,  this  method  was  under  development  at  WL) 
Non-Uniform  B-Splines  -  a  CAD  package  implementation  (the  DT_NURBS  library  was 
recommended  by  WL) 

These  methods  were  analyzed  by  a  series  of  mathematical  test  cases  and  selected  applications.  The 
results  of  these  tests  are  discussed  in  the  remaining  sections  of  this  report. 
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Table  3.1  Evaluation  of  Interpolation  Methods  by  Franke 
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Table  3.1  Evaluation  of  Interpolation  Methods  by  Franke  (Concluded) 
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^  at  least  a  rectangle  given  by 


SURVEY 


We  are  surveying  aeroelasticity  researchers  to  determine  what  kinds  of  interface  methodologies  are 
used  to  transfer  information  between  the  structural  and  computational  grids.  Please  take  a  moment 
to  respond  to  this  survey.  Thank  you. 

1.  What  interface  method  do  you  use  to  convert  between  the  structural  grid  and  the  computational 
grid  in  your  aeroelastic  simulation  method? 

2.  What  types  of  structure  do  you  simulate: 

_ lifting  surfaces  (plate  with  bending) 

_ lifting  surfaces  (shells  for  wings,  canards,  etc.) 

_ lifting  bodies  (shells  for  fuselages,  engines,  etc.) 

_ other:  (Please  specify) _ 

3.  What  problems  or  limitations  have  you  incurred  using  this  (these)  methods? 

4.  What  Aeroelastic  Methodology  are  you  using? _ 

(If  the  code  name  is  not  widely  toow,  we  would  appreciate  any  papers  you  may  have  published  to 
that  we  may  correctly  acknowledge  your  work.) 

5.  Your  name _ 

Position _ 

Company/Country _ _ 

e-mail  or  other  contact  address _ 


Figure  3-1.  Survey  Letter  Which  was  Sent  to  US  Industry  and  Government  Facilities. 


Table  3.2  Compilation  of  the  Aeroelastic  Survey 


Company/ 

Organiz. 

Aeroelastic 
Methodology 
in  Use 

Lifting 

Surfaces 

* 

Lifting 

Surfaces 

Lifting 

Bodies 

+ 

Other 

What  Interface 
Methods  are  in  Use 

What  Problems  Have 
Been  Encountered  with 
the  Interface  Methodology 

NASA- 

DFRC 

STARS 
(NASATM 
101703  & 
TM4544 

X 

X 

X 

Interpolation 
(Method  not 
specified);  Use 
Common  FE 
CFD/CSD  Methods 

None 

NASA- 

ARC 

ENSAERO 

X 

X 

Wing- 

Box 

Virtual  Surface 
Method  based  on 
Consistent  Load 
i^proach; 
Interpolation  based 
on  Shape  Functions 

None,  if  patched 
stnictuned  grids  are  used 

NASA- 

LaRC 

ISAC, 

FAST, 

NASTRAN, 

CAP-TSD, 

CFL3DAE 

X 

X 

X 

Harder  &  Desmarais 
Surface  Splines. 
Includes 
Smoothing, 
Amplitude  and 
Rotations  are 
Independently 
Fitted, 

Discontinuous 
Regions  are 
Permitted 

Interpolation  can  sag 
between  points  and  thus 
requires  care  in  the 
selection  of  input  points, 
scaling  and  graphical 
monitoring  of  results. 
Must  not  extrapolate  to 
any  significant  degree. 
Requires  sign,  labor  to 
interface  with  FEM 
models  by  choosing  input 
points  from  FEM, 
dividing  regions,  deleting 
close  x-y  points,  etc. 

Modem  graphical 
interfaces  are  not  well 
developed. 

Gulfstream 

ACTO^ce 

MSC/ 
NASTRAN 
with  Aero 
Corrections 

X 

(Wind 

Tunnel 

Models) 

Wing- 

body- 

em- 

pennage 

using 

beam 

models 

Linear  Splines 
(within 

MSC/NASTRAN) 

Lack  of  an  aerodynamic 
factoring  scheme 

Boeing 

ELFINI 

X 

X 

Monomial  Shape 
functions  related  to 
str.  displacements 
by  least  squares. 

Unit  loading 
functions  from 
principle  of  virtual 
work  convert  cps  to 
loads. 

No  limitations,  although 
care  must  be  taken  in 
setting  up  the  functions 
to  accurately  interpolate 
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Table  3.2  Compilation  of  the  Aeroelastic  Survey  (cont.) 


Company/ 

Organiz. 

Aeroelastic 
Methodology 
in  Use 

Lifting 

Surfaces 

* 

Lifting 

Surfaces 

** 

Lifting 

Bodies 

+ 

Other 

What  Interface 
Methods  are  in  Use 

What  Problems  Have 
Been  Encountered  with 
the  Interface  Methodology 

Lockheed- 
Martin, 
Fort  Worth 
Co. 

Cunningham 

Kernel 

Function, 

Doublet 

Lattice, 

Zona6, 

Zona? 

X 

X 

X 

Beam 

Models 

Surface  Splines 

If  a  fuselage  is  represented 
as  a  simple  beam, 
“invented”  structure  must 
be  included  in  model  to 
extend  to  lifting  surfaces. 
Local  deformations  are  a 
problem  with  built-up 
fuselages,  in  particular. 

MacNeal- 

Schwendler 

Corp. 

MSC/ 

NASTRAN 

Finite 

Element 

Models 

Infinite-Plate  Spline 
of  Harder  and 
Desmarais  and 
linear 

bending/twisting 
spline  with  rigid 
offsets 

None  with  linear  spline; 
curling  up  of  extrapolated 
regions  on  IPS 

Structural 

Dyanmics 

Researdi 

Corporation 

MSC/ 

NASTRAN, 
Doublet 
Lattice, 
Mach  Box, 
Piston 
Theory 

X 

X 

X 

Bars 

along 

elastic 

axis 

Same  as  MacNeal- 
Schwendler  Entry 

Poor  graphics  gives  lack 
of  visibility  of  accuracies 

Southwest 

Research 

Institute 

ASTROS, 

TSO 

X 

X 

Internal 

flow 

flat 

panels 

(ducts) 

Cubic  Spline 

None 

MDA 

CAP-TSD, 

NASTD 

X 

X 

X 

Equivalent  virtual 
work  force 
mapping. 

Iterative  solution  takes 
too  long 

ZONA 
Technology 
,  Inc. 

ZONA  codes 
(panel 
methods) 

X 

X 

X 

Line  and  Surface 
Interpolation 

Accuracy  Decreases  for 
Higher  Order  Modes 

Dynamic 

Engineering 

,Inc. 

MSC/ 

NASTRAN 

X 

Bar  ele¬ 
ments 

Same  as  MacNeal- 
Schwendler  Entry 

Aerodynamic  elements  are 
not  comp,  with  post¬ 
processing,  numbering 
scheme  limitations, 
problems  with  element 
alignment 

Georgia 

Tech 

Research 

Institute 

ENS3DAE 

X 

X 

X 

Spline 

Interpolations, 

Infinite-Plate 

Splines 

Accuracy  at  higher  modes 
is  degraded.  Oscillations 
are  introduced  between 
nodes.  Multiple  runs  to 
optimize  interpolations 

*  Plates  with  Bending  **  Shells  with  Bending  +  Shells  for  Fuselages,  Engines,  etc. 
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4.  INFINITE-PLATE  SPLINE  METHOD  - 
MATHEMATICAL  FORMULATION 


Nomenclature 


V* 

w 

D 

Q 

P 

Fi,Fa:,Fs, 
AfSjAi  ,Bi 

x,y 

r,0 

Xi,yi 

Xa,,ya: 

Xsnysi 

{F} 

{WJ 

[Q] 

{W,} 

[CJ 

{F,,} 

(F,) 

[Csa] 

Uas] 

[/] 


Biharmonic  operator 
Plate  deflection 
Plate  flexural  rigidity 
Distributed  load  on  the  plate 
Point  load 

Normalized  point  loads 
Undetermined  coefficients 
Coordinates  of  a  generic  point  (Cartesian) 

Coordinates  of  a  generic  point  (polar) 

Known  grid  point  coordinates 
Known  aerodynamic  grid  point  coordinates 
Known  structural  grid  point  coordinates 
Column  matrix  of  normalized  forces  Fi 
Column  matrix  of  deflections  for  the  structural  grid 
Structural  influence  matrix 

Column  matrix  of  deflections  for  the  aerodynamic  grid 

Aerodynamic  influence  matrix 

Column  matrix  of  normalized  aerodynamic  forces  Fa-, 

Column  matrix  of  normalized  structural  forces  Fsi 

Matrix  of  flexibility  influence  coefficients  relating  structural  and  aerodynamic  grid 
Deflection  interpolation  mauix 
Identity  matrix 


Definition 

The  method  of  infinite-plate  splines  (IPS)  is  one  of  the  more  popular  methods  of  interpolation, 
being  used  in  programs  such  as  ASTROS  and  MSC/NASTRAN.  This  method  is  based  on  a  superpo¬ 
sition  of  the  solutions  for  the  partial  differential  equation  of  equilibrium  for  an  infinite  plate.  We  first 
consider  a  set  of  N  discrete  “grid  points”  (Xi,  y,),  for/=l,  2, . N,  lying  within  a  two-dimensional 
domain  with  Cartesian  coordinates  x  and  y.  Each  grid  point  has  associated  with  it  a  “deflection” 
W,  (x/,  y,  )  that  defines  the  vertical  position  coordinate  of  the  surface  on  which  both  structural  and 
aerodynamic  grid  points  are  presumed  to  lie.  Using  solutions  of  the  equilibrium  equation  for  an 
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infinite  plate,  one  calculates  the  values  for  a  set  of  concentrated  loads,  all  presumed  to  act  at  the 
known  data  points,  that  give  rise  to  the  required  deflections  WiijXi,  yi).  Those  concentrated  forces 
are  then  substituted  back  into  the  solution,  thus  providing  a  smooth  surface  that  passes  through 
the  data.  Thus,  given  the  deflections  of  the  structural  grid  points  it  is  possible  to  interpolate  to  a 
set  of  aerodynamic  grid  points  that,  in  general,  do  not  coincide  with  the  structural  ones.  Some 
advantages  to  this  method  are  that  the  grid  is  not  restricted  to  a  rectangular  array  and  that  the  inter¬ 
polated  function  is  differentiable  everywhere.  Points  far  away  from  known  points  are  extrapolated 
nearly  linearly.  The  method  described  here  was  developed  by  Turner  [1]  who  expanded  the  work 
of  Harder  and  Desmarais  [2]  into  a  working  FORTRAN  code.  For  IPS  interpolation  a  minimum  of 
three  points  is  required,  since  three  points  define  a  plane.  Methods  of  interpolation  are  classified  in 
two  ways:  global  interpolation,  in  which  the  entire  surface  is  fitted  with  a  set  of  functions,  and  local 
interpolation,  in  which  only  a  subset  of  the  surface  is  fitted  with  appropriate  functions;  see  Rodden 
[3].  Although  Turner’s  method  uses  local  interpolation,  the  present  implementation  is  global. 


Current  Uses  in  Aeroelastic  Applications 


Application  Name 

Comments 

Code  Owner 

NASTRAN 

uses  combination  of  linear  and  infinite- plate 
surface  splines  with  beam  and  plate  elements 

MacNeal-Schwendler  Corp. 

XTRANS3S 

uses  MPROC  to  provide  infinite-plate  spline 
interpolation 

Wright  Laboratory/FBB 

ASTROS 

same  as  in  NASTRAN 

Wright  Laboratory/FBB 

ENS3DAE 

uses  infinite-plate  spline  in  1-D  flexible  ap¬ 
plications;  uses  MPROC3D  [4]  (infinite-plate 
splines  with  smoothing  options  and  singu¬ 
lar  value  decomposition)  for  2-D/3-D  flexible 
applications 

Wright  Laboratory/FIB 

CFL3DAE 

uses  MPROC  to  provide  infinite-plate  spline 
interpolation  (MPROC  is  a  planar  version  of 
MPROC3D;  MPROC,  developed  at  NASA 
Langley,  does  not  contain  smoothing  and  sin¬ 
gular  value  decomposition  of  MPROC3D.) 

NASA  Langley 

Mathematical  Description 

In  this  section  the  general  equations  developed  by  Harder  and  Desmarais  [2],  based  on  small 
deflections  of  an  infinite  plate,  will  be  discussed.  The  plate  extends  to  infinity  in  both  directions, 
deforms  only  in  the  direction  normal  to  the  plate,  and  has  bending  stiffness  only.  The  governing 
equation  is 

=  q  (1) 
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where  W  is  the  plate  deflection,  D  is  the  plate  flexural  rigidity,  and  q  is  the  distributed  load  on  the 
plate.  Introducing  polar  coordinates,  x  =  r  cos  6,  y  =  r  sin0,  so  that  V'*  in  polar  coordinates  is 
given  by  [5] 


^  r  dr  ^  d9^j  \9r^  r  dr  r^  d9^j 


(2) 


and  considering  the  deflection  due  to  a  point  load  P  at  the  origin  of  the  coordinate  system,  a  general 
solution  of  equation  (1)  can  be  written  as 

W  (r)  =  A  +  ^  r^lnr^  (3) 

\l67rD  j 


Here  A  and  B  are  undetermined  coefficients. 

We  now  consider  superposition  of  N  point  loads  at  various  given  locations  (x,-,  y,),  for  i=l,  2, 

. , iV  in  the  2-D  space.  To  accomplish  this,  a  simple  shift  in  the  coordinate  system  is  necessary. 
Thus,  the  deflection  due  to  the  N  point  loads,  evaluated  at  any  point  (x,  y)  in  the  2-D  space,  can 
be  determined  by  simply  replacing  in  equation  (3)  by  rf  =  {x  —  x,)^  +  (y  —  yd^  and  summing 
over  the  points.  Therefore, 

W  (X,  y)  =  E  W 

where  A,-,  5,-,  and  Fi  =  are  undetermined  coefficients. 

For  the  purpose  of  determining  these  undetermined  coefficients  one  needs  to  use  certain  infor¬ 
mation  about  the  solution.  Harder  and  Desmarais  [2]  showed  that  by  expanding  equation  (4)  for 
large  values  of  r,  one  obtains  terms  of  order  r^,  r,  1,  1/r,  etc.,  along  with  terms  of  order  r^lnr^, 
r  Inr^,  Inr^,  etc. 

N  N 

w  (r,  9)  =  r^  Inr^  +  “ 

»=i  1=1 

N 

2r  In  ^  (x,-  cos  9  -1-  y,-  sin  6>)  f)  - 

1=1 

N 

2r  Y2  (^<  cos  9  +  y,-  sin  3)  (F,  -f  5,)  -t- 

»=i 

+  +  (5) 

To  ensure  that  the  solution  does  not  become  excessively  large  as  r  becomes  large,  one  needs  to 
suppress  some  of  these  terms;  viz.,  coefficients  of  the  terms  of  order  r^,  In  r^,  and  r  in  must  be 
zero.  It  is  evident  that  this  can  be  accomplished  by  setting 

N 


(6) 


N 


'ExiF,-  =0 

i=l 

(7) 

N 

(8) 

Z  =  1 

N 

(9) 

Here  equation  (6)  can  be  recognized  as  the  discrete  force  equilibrium  equation,  which  eliminates 
terms  of  order  In  Equations  (7)  and  (8)  are  discrete  moment  equilibrium  equations  and 
eliminate  terms  of  order  r  In  r^.  Finally,  equation  (9),  the  physical  significance  of  which  is  not 
clear,  serves  to  eliminate  terms  of  order  r^. 

Therefore,  returning  to  the  exact  version,  equation  (4),  it  is  clear  that  one  can  express  W  as 

N 

W  (x,y)  =  ao  +  aix  +  a2y  + 

i=l 


where  ao,  a^,  and  az  are  unknowns  given  by 

cJo  =  ^  [a,  +  Bi  (xf  +  (11) 

/=1 

N 

ai  =  —2^2  BiXi  (12) 

j=i 

aj  =  -2  ^  Biyi  (13) 

1=1 

Note  that  the  N + 3  unknowns  in  equation  ( 10)  can  be  determined  from  application  of  side  conditions 
found  in  equations  (6)  -  (8)  along  with  setting  the  deflection  at  the  point  to  its  known  value  W,-. 
Viz., 

N 

Wi  =  flo  +  aiXi  +  azyi  +  ^fj  i=l,2,  ...,N  (14) 

where 

rfj  =  (Xi  -  xjf  +  (y,  -  yjf  (15) 


is  the  square  of  the  distance  between  known  points  (x/,  y,  )  and  (xj,  yj). 

Equation  (14)  and  the  side  conditions  found  in  equations  (6)  -  (8)  can  now  be  expressed  in 


matrix  form  as 

[W}  =  [R][a}  +  [Z]{F] 

(16) 

and 

[Rf[F}=0 

(17) 
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where 


and  where  [Z]  contains  the  elements  Z,y  given  by 

Z,v=rJlnrJ  (19) 

Thus,  the  deflection  W,,  for  f=l,  2, . . N,  can  be  determined  using  equations  (16)  and  (17)  along 
with  the  above  definitions. 

Implementation 

In  order  to  make  use  of  equations  (16)  and  (17)  to  create  a  transformation  matrix  for  interpolation, 
we  follow  the  works  of  Schmitt  [6]  and  Rodden  [3]. 

Rodden  [3]  relates  a  known  matrix  [C^]  to  the  deflections  and  forces  of  the  structural  grid  as 

{W,}  =  [C,]{F,}  (20) 

where  {W,}  is  a  column  matrix,  the  elements  of  which  are  Ns  deflections  of  the  structural  grid 
ysi),  i=l>  2,  . . .,  Ns,  {Fi}  is  a  column  matrix  containing  the  unknown  normalized  forces 
Fjj,  1=1, 2, . . .,  Ns,  and  [C,]  is  an  unknown  Ns  x  Ns  matrix. 

It  now  remains  for  the  coordinates  of  the  aerodynamic  grid  points  (Xa,- ,  y^,- ,  Waj),  i=h  2, . . .,  Na 
to  be  found.  An  expression  similar  to  equation  (20)  exists  relating  the  deflections  and  forces  of  the 
aerodynamic  grid  so  that 

{Wa}  =  [Ca]{Fa}  (21) 

Here  the  NaXl  column  matrices  { Wa}  and  {Fa}  and  the  Na  x  Na  matrix  [Ca]  are  analogous  matrices 
for  the  Na  aerodynamic  grid  points.  The  above  relationship  is  made  equivalent  to  the  structural 
relationship  of  equation  (20)  that  {Fa}  will  produce  the  same  deflection  {Wj}  as  {F^}.  Thus  there 
will  exist  some  Ns  x  Na  matrix  [C^a]  such  that 

{W;,}  =  [C,a]{Fa}  (22) 

Maxwell’s  law  of  reciprocity,  as  defined  by  Meirovitch  [5]  for  example,  requires  the  existence  of  a 
reciprocal  relation  that  relates  {Wa}  to  {F^}  of  the  form 

{Wa}  =  [Ca.]{F.}  (23) 
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where  [Ca5]  is  the  transpose  of  [Csa\-  Substituting  equation  (20)  into  equation  (23)  and  given  that 
[Cj]  is  symmetric,  one  obtains 

{W^}  =  [C...][C.r‘{W,}  (24) 

Substituting  equations  (21)  and  (22)  into  equation  (24),  one  finds  that 

[Ca]  =  [Cas][CsrHCsa]  (25) 

A  matrix  [7^^],  also  exists  such  that  the  inteipolation 

=  [/«.]{  W.}  (26) 

can  be  made.  Comparing  equations  (24)  and  (26)  and  noting  that  matrix  [C^]  is  symmetric,  one  can 
identify  [/a^]  and  also  solve  for  [C^a]  in  terms  of  as  [/aj]  so  that 

[las]  =  [Ca.v]  [C]-'  (27) 

[C,a]  =  [Cs]  [/„,]  (28) 

Substituting  [C^a]  from  equation  (28)  and  its  transpose  into  equation  (25),  one  can  construct  the 
transformation 

[Ca]  =  [/a.v][Cv][/,a]  (29) 

The  matrix  [/a^]  is  now  obtained  from  applying  equation  (16)  to  both  structural  and  aerodynamic 
grids.  Assuming  the  structural  grid  to  be  known  so  that  the  forces  {F^}  are  determined  from  it,  one 
finds 


{WA  =  [Rs]  {4  +  [Z,]{F,} 
{WA  =  [Ra]  {a}  +  [Zas]{F,} 

where,  according  to  equation  (17),  equation  (30)  is  subject  to 

[F,]^{F,}=0 

and  where 


1  ■ 

[Rs]  = 

1 

- 

1 

.  . 

- 

1  ' 

[Ra]  = 

1 

Xa. 

ya. 

1  , 

.  Xa^  . 

(30) 

(31) 

(32) 


(33) 


17 


and  where  [Z^]  and  [Zas]  contain  the  elements 


The  bracketed  expressions  in  these  terms  relate  to  distances  between  pairs  of  structural  grid  points 
in  [Z^]  and  between  individual  aerodynamic  and  structural  grid  points  for  [Z^s]-  Equation  (30)  can 
be  solved  for  {Fs)  yielding 

{Fs}  =  [ZsrH{W,}-[Rs]{a}}  (35) 

Substituting  equation  (35)  into  (32)  and  rearranging,  one  finds  the  undetermined  coefficients  as 

[Z,rMW,}  (36) 

where 

=  [Z,]-i[i?,]  (37) 

Next,  substitution  of  equation  (36)  back  into  (35)  yields  a  linear  relationship  between  {F^}  and 
{WJ,  viz., 

{Fs)  =  [[/]  -  [Z,]-’  [Rs]  [F,]-'  [Rsf]  [Z,]-'  iWs)  (38) 

Thus,  given  the  coordinates  of  the  deformed  structural  grid  (Xj,.,  y^,.,  Wi,.),  one  determines  the  Ff. 
from  equation  (38). 

It  now  remains  for  the  coordinates  of  the  aerodynamic  grid  points  (x^,. ,  y^,- ,  Wa^)  to  be  found.  To 
finish  this  we  simply  substitute  the  results  of  equations  (36)  and  (38)  into  equation  (31)  yielding 

{WJ  =  [[FJ  [Ys]-^  [Rsf  +  [Z„,]  [[/]  -  [Z,]-*  [Rs]  [Rsf]]  [Zs]-^  {W,}  (39) 

from  which  the  transformation  matrix  [/„.v]  (see  equation  26)  can  be  identified  as 

[/..]  =  [[Ra]  [F.]-'  [RsV  +  [Z,s]  [[/]  -  [Z.]-'  [Rs]  [F,]-'  [Rsf]]  [Zs]-^  {WJ  (40) 

Equation  (40)  gives  the  transformation  matrix  [/a,9],  which  is  used  to  relate  deflections  of  the 
structural  grid  to  deflections  of  the  aerodynamic  grid.  The  flexibility  influence  coefficients  can  also 
be  used  to  relate  the  loads  in  aerodynamic  grid  to  the  deflections  in  structural  grid.  To  do  this,  one 
first  solves  equation  (20)  for  {F,.}  in  terms  of  { W,},  so  that 

{Fs}  =  [Cs]-^{Ws}  (41) 

Then,  one  substitutes  equation  (22)  for  { ^nd  finally  makes  use  of  equation  (28),  yielding 

{F9}=[/v„]{F„}  (42) 

Note  that  the  influence  coefficient  matrix  [C^]  for  the  structural  grid  can  be  found  by  first  comparing 
equations  (41)  and  (38),  identifying 

[C,]  =  [Z,]  [[/]  -  [Z,]-’  [Rs]  [F,]'*  [Rsf]''  (43) 
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The  influence  coefficient  matrix  [C^]  for  the  aerodynamic  grid  can  then  be  found  from  equation 
(29).  The  procedure  is  essentially  the  same  regardless  of  whether  mode  shape  information  is  used 
or  structural  influence  coefficient  data. 

The  implementation  of  the  IPS  method  into  a  working  FORTRAN  code  is  straightforward  and 
may  account  for  some  of  the  success  of  this  method.  The  mathematical  implementation  in  FASIT, 
described  here,  applied  required  roughly  400  lines  of  code.  The  method  has  some  very  desirable 
features:  it  is  straightforward,  it  gives  a  differentiable  function  everywhere,  and  it  is  not  restricted 
to  a  rectangular  grid. 


Limitations 

1.  It  was  found  that  as  the  number  of  points  used  in  the  interpolation  increases,  so  does  round-off 
error,  effectively  negating  the  increased  accuracy  obtained  from  the  larger  number  of  points. 
Turner  [1]  has  tested  interpolations  using  3-10  points  and  recommends  7  points  for  optimum 
results. 

2.  The  interpolation  method  presented  here  is  2-D.  For  a  wing,  this  assumes,  among  other 
things,  that  the  planform  is  flat.  It  has  difficulty  with  deflections  caused  by  deformations 
other  than  simple  “out-of-plane”  (plate)  bending/twisting.  For  example,  in  the  application 
MPROC3D  [4],  it  was  noted  that  the  IPS  method  has  difficulties  with  in-plane  mode  shapes 
that  are  very  small.  This  reduces  its  usefulness  in  aeroelastic  applications.  Thus,  in  the  form 
implemented  here  (a  global  interpolation),  use  of  the  IPS  method  should  be  limited  to  out- 
of-plane  bending/twisting  only.  (It  should  be  noted,  however,  that  extension  to  3-D  and  to  a 
local  method  is  straightforward;  see  the  section  on  Thin-Plate  Splines.  When  used  as  a  local 
method,  IPS  is  limited  to  approximate  C°  continuity  between  adjoining  subdomains.) 

3.  EPS  creates  distortions  or  oscillations  in  extrapolated  regions  (e.g.,  wing  tips).  This  has  been 
described  as  a  curling  up  or  “potato  chip”  effect. 

4.  The  IPS  method  has  a  tendency  to  introduce  high-order  oscillations  for  some  rapidly  varying 
functions.  These  can  be  eliminated  by  smoothing  techniques  at  the  expense  of  accuracy.  The 
smoothing  must  be  made  on  a  cui-ve-by-curve  basis  and  is  very  time-consuming. 
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5.  MULTIQUADRIC-BIHARMONIC  METHOD 
MATHEMATICAL  FORMULATION 


Nomenclature 


ai 

{a} 

[Bl  [Bg] 
[Big] 

H(x) 

{H),  {Hg} 

m 

n 

N 

r 

{Uh  {Ug} 

m 

X 

Xi,  XG; 

X/, 


Undetermined  coefficients 

Column  matrix  of  undetermined  coefficients 

Matrix  constmcted  from  basis  functions  evaluated  at  given  points 

Coupling  matrix  constructed  from  basis  functions  evaluated  at  given 

and  interpolated  points 

Function  to  be  interpolated 

Column  matrices  of  given  values  of  the  function  to  be  interpolated 

Column  matrix  of  interpolated  values  of  the  function 

Total  number  of  points  to  be  interpolated 

Total  number  of  given  points 

User  defined  input  parameter 

Column  matrices  ofN  I’s 

Column  matrix  of  n  I’s 

Position  vector  to  an  arbitrary  point  in  Cartesian  space 
Position  vector  to  the  f  th  given  points  in  Cartesian  space 
Position  vector  to  the  /th  point  to  be  interpolated  in  Cartesian  space 


Definition 

The  multiquadrics  (MQ)  method  is  an  interpolation  technique  that  represents  an  irregular  surface 
in  terms  of  a  set  of  quadratic  basis  functions.  More  recently  named  the  multiquadric-biharmonic 
method,  it  was  developed  to  perform  interpolation  of  various  topographies  [1].  The  original  name 
reflects  the  method’s  use  of  quadratic  basis  functions;  note  that  a  “quadric”  surface  is  one  whose 
geometry  is  described  by  quadratic  equations.  The  quadric  surface  used  in  most  cases  is  a  circular 
hyperboloid  in  two  sheets.  The  addition  of  “biharmonic”  to  the  name  is  due  to  an  important  proof 
that  the  equations  governing  the  method  can  always  be  solved  [2]  showing  that  the  method  is 
analogous  to  a  numerical  solution  of  Poisson’s  equation.  The  MQ  method  is  stable  and  consistent 
with  respect  to  a  user-defined  parameter  r  that  controls  the  shape  of  the  basis  functions.  A  large 
r  gives  a  flat  sheet-like  function,  while  a  small  r  gives  a  narrow  cone-like  function.  For  non-zero 
values  of  r  the  MQ  method  produces  an  infinitely  differentiable  function  that  preserves  mono  tonicity 
and  convexity.  The  MQ  method  was  originally  implemented  as  a  global  basis  function  method  with 
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constant  values  of  r.  However,  later  work  by  Kansa  [3, 4]  suggests  that  the  method’s  conditioning, 
accuracy,  and  general  numerical  performance  are  improved  by  (1)  permitting  r  to  vary  among 
the  basis  functions;  (2)  scaling  and/or  rotating  the  independent  variables;  and  (3)  applying  it  in 
overlapping  subdomains. 


Current  Applications 

Review  papers  by  Franke  [2]  and  Hardy  [5]  indicate  that  the  method  has  been  widely  used  and 
that,  in  comparison  with  several  other  interpolation  methods,  it  performs  well.  It  was  employed 
to  interpolate  topographical  data,  to  prepare  a  geoid  contour  map,  to  interpolate  rainfall  data  in 
hydrology,  and  to  remote  sensing,  all  with  significant  success.  Hardy’s  review  paper  [5]  also  alludes 
to  applications  to  the  areas  of  photogrammetry,  surveying  and  mapping,  geophysics,  hydrography, 
and  computational  fluid  dynamics  (CFD).  Kansa  [3]  successfully  applied  the  MQ  method  in  several 
test  cases,  such  as  interpolation  from  a  coarse  grid  to  a  fine  grid.  Although  the  MQ  method  has  not 
been  directly  applied  in  aeroelastic  methodologies,  Kansa’s  CFD  applications  [3, 4]  interpolated 
data  between  different  grids  with  varying  degrees  of  success. 


Mathematical  Description 

The  MQ  method  is  the  summation  of  quadric  surface  equations  with  unknown  coefficients  to 
represent  irregular  surfaces.  A  quadric  surface  is  a  surface  which  can  be  mathematically  defined 
by  quadratic  equations.  This  method  was  originally  developed  by  Hardy  [1]  to  construct  a  function 
H(x)  given  its  values  at  a  set  of  N  discrete  “nodal”  values  Hi  =  H  (x,  )  at  “nodes”^x  =  Xi,  for  i  = 
1,2,.. .,  N.  Here  x  =  xi  +  yj  +  zk;  x,  y,  and  z  are  Cartesian  coordinates;  and  i,  j,  and  k  are  unit 
vectors  in  the  directions  of  x,  y,  and  z,  respectively.  (Note  that  by  omission  of  the  ^-direction  the 
three-dimensional  scheme  reduces  to  a  two-dimensional  one.) 

The  interpolation  equation  was  originally  given  as 

N 

H  (x)  =  Y^ai  \x  -  Xi\  (1) 


which  may  also  be  written  as 


N 

H  (x)  =  J2  [(x  “ 

/=i 


1/2 


(2) 


The  coefficients  a/  are  to  be  found.  The  basis  functions  implied  by  equations  (1)  and  (2)  are  not 
differentiable  at  the  nodes,  however.  The  method  was  then  extended  by  inclusion  of  a  user-defined 
input  parameter  r  so  that  equation  (2)  is  written  instead  as 


H{x)  =  [(^  “ 

Z  =  1 


1/2 


(3) 
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This  implies  that  the  original  basis  functions  are  replaced  with  equations  for  a  hyperbola. 

In  order  to  find  the  values  of  the  coefficients  a,-,  one  simply  applies  equation  (3)  to  each  of  the 
N  points  yielding 


Hi  =  Y,  01  j  [(x,  -  Xjf  +  i  =  1,1,...,  N.  (4) 

;=i 

which  can  be  written  in  matrix  notation  as 

{H}  =  [5]{a}  (5) 

where  the  elements  of  the  N  x  N  matrix  [5]  are 

Bij  =  [(x,-  -  \jf  +  (6) 

and  column  matrices  {H}  and  {a}  are  given  by 


Hi  ' 

ai 

{H}  = 

H2 

{a}  =  ■ 

(X2 

.  Hn  . 

.  OCn  , 

Now,  given  the  coordinates  of  all  nodal  points  and  the  values  of  the  function  H  at  those  points,  one 
finds  {a}  as 

{a}  =  [Br'{H}  (8) 

In  1986  Nelson  and  Hardy  [6]  rigorously  showed  that  the  MQ  method  was  biharmonic.  This 
proof  is  important  because  it  shows  that  the  multiquadric  representation  or  approximation  does  not 
need  to  separate  data  points  from  source  points  for  optimization.  It  also  leads  to  the  conclusion  that 
the  matrix  [fi]  must  be  invertible.  To  this  end,  Franke  [7]  proposed  an  inequality  (later  proved) 

(-l)^'Met[S]  >  0  (9) 

This  is  important  since  it  shows  that  multiquadrics  surface  interpolation  is  always  solvable  for 
distinct  data. 

Franke  [7]  also  introduced  a  constraint  on  the  coefficients  aj 

Ea;=0  (10) 

to  guarantee  precision  for  constant  functions. 
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Implementation 

The  implementation  described  here  is  similar  to  that  used  by  Kansa  [3],  which  follows  Hardy  s 
original  scheme  closely.  First,  the  undetermined  coefficients  a,- ,  i  =  1,2, . . . ,  N  are  found  from 
equation  (8).  This  equation  is  rewritten  assuming  that  [Be]  is  the  matrix  [fi]  and  {He}  is  the  column 
matrix  {H),  and  that  both  are  subscripted  with  the  G  to  emphasize  that  these  matrices  are  evaluated 
at  the  given  points  xg;  .  Thus, 

{a}  =  [BcVHHg}  (11) 

It  is  desired  to  find  the  values  of  the  function  H  evaluated  at  the  interpolated  points  x^,  i  = 
1,2,  ...,n.  Denoting  the  column  matrix  of  the  values  of  H  at  these  n  points  as  {Hj},  we  note  from 
equation  (3)  that 

{Hi}  =  [5/g]{Q!}  =  [BiG][BGr\HG}  (12) 

where  the  elements  of  [5/g]  are 


Eq.  (10)  can  be  implemented  either  by  elimination  of  one  of  the  a,  ’s  in  favor  of  the  others,  or  it 
can  be  imposed  via  a  Lagrange  multiplier.  The  present  implementation  follows  the  latter  approach, 
the  details  of  which  may  be  found  in  Chapter  7  (the  TPS  formulation)  by  replacing  [RgI  In  that 
formulation  by  a  column  matrix  {(/gI  which  consists  of  N  ones  and  [i?/]  by  a  column  matrix  [Ui] 
which  consists  of  n  ones.  The  result  is 


where 


and 


{Hi}  =  [5/g]{<^}  +  {Gi}^ 

(14) 

f[5G]-'  -  [Bg]-HUc}{Ug}^[Bg]-^]  {Hg} 
{Ug}^[Bg]-HUg} 

(15) 

„  {Ug}HBg]-HHg} 

^  {UG}nBG]-HUG} 

(16) 

Three  improvements  to  this  multiquadrics  scheme  were  tested  by  Kansa  [3, 4].  First,  he  found 
that  increased  accuracy  could  be  obtained  by  allowing  the  r  parameter  to  vary  in  such  a  way  as 
to  obtain  a  well-conditioned  matrix.  The  more  distinct  the  matrix  entries,  the  lower  the  condition 
number  of  the  matrix.  With  this  in  mind,  the  r  parameter  was  allowed  to  vary  only  monotonically. 
As  stated  above,  the  r  parameter  controls  the  shape  of  the  basis  function.  The  increased  accuracy 
did  not  appear  to  depend  on  whether  r  was  monotonically  increasing  or  decreasing.  The  largest 
increase  in  accuracy  occurred  when  r  was  allowed  to  vary  exponentially.  The  formula  for  the 


variation  of  r  is 


(17) 
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where  rj  is  simply  substituted  for  r  in  equation  (6). 

Another  improvement  was  to  introduce  domain  decomposition,  which  was  also  implemented 
here.  He  found  that  computational  time  could  be  decreased  by  reducing  multiquadrics  from  a 
global  scheme  to  a  quasi-local  scheme  using  domain  decomposition.  It  was  found  that  using  global 
techniques  for  multiquadrics  caused  the  coefficient  matrix  to  have  large  condition  numbers.  To 
decrease  the  condition  number,  the  global  domain  was  broken  down  into  several  sub-domains, 
which  were  allowed  to  overlap.  Domain  decomposition  was  found  to  improve  computational  time 
and  allow  for  better  matrix  conditioning.  In  the  present  implementation,  LU  decomposition  was 
used  to  solve  Eq.  (15).  The  domain  decomposition  was  implemented  based  on  the  maximum 
number  of  points  allowed  in  each  coordinate  direction.  That  leads  to  sub-domains  that  preserve 
the  original  shape  and  have  intersections  with  the  neighboring  ones.  In  the  common  overlapping 
regions,  all  interpolated  quantities  are  determined  by  using  the  the  mean  of  the  quantities  in  the 
pertinent  sub-domains. 

Kansa  finally  recommended  that  for  consistent  results,  regardless  the  scale  of  the  problems,  all 
data  should  be  mapped  onto  a  unit  sub-domain.  Therefore,  the  numerical  code  maps  the  data  onto 
a  unit  line  for  1-D  problems,  onto  a  unit  square  for  a  2-D  problem,  and  onto  a  unit  cube  for  a  3-D 
problem. 


Limitations 

In  the  literature  [2,  3,  4],  it  was  noted  that  the  multiquadric  method  provided  varying  results 
in  many  test  cases.  The  method  perfoimed  poorly  for  interpolating  highly  oscillatory  functions. 
However,  the  same  literature  points  out  that  multiquadrics,  when  interpolating  the  derivatives  of  a 
function,  performed  poorly  in  regions  where  the  surface  is  relatively  flat,  producing  results  that  are 
somewhat  noisy.  This  can  be  corrected  by  use  of  a  hybrid  scheme  in  which  multiquadrics  is  used 
initially  with  a  corrector  method  applied  to  regions  of  shallow  gradients.  However,  these  reported 
trends  were  not  observed  in  our  research.  Finally,  the  value  of  the  r  parameter  should  be  kept  within 
a  certain  range  to  insure  a  stable  linear  system  of  equations;  see  Chapter  11. 
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6.  NON-UNIFORM  B-SPLINE  METHOD  - 
MATHEMATICAL  FORMULATION 


Nomenclature 


B 

Spline  basis  function 

C{u) 

Spline  curve 

Po,  Pi, .. . 

Control  Points 

k 

Degree  of  polynomial  (=3  in  present  work) 

m,  n 

Number  of  control  points 

s 

Pseudo-arclength  along  a  curve  that  passes  through  the  knots 

S(u,v) 

Spline  surface 

It,  V 

Curvilinear  directions  describing  the  surface 

Ui,  Vi 

Knots 

Definition 

Splines  in  their  most  primitive  form  are  used  to  represent  curves  in  3-D  space,  so  a  tensor 
product  of  two  splines  can  be  used  to  represent  a  surface  in  3-D  space.  Spline  functions  may  either 
be  polynomial  or  rational  in  type.  Polynomial  splines  are  piecewise  polynomial  functions  of  a 
specified  degree.  The  “basic  splines”  or  B-splines  are  a  subclass  of  polynomial  splines  that  are 
linearly  independent  and  span  the  space  of  univariate  polynomial  splines.  That  is,  any  polynomial 
spline  function  can  be  represented  as  a  series  of  B-splines.  A  rational  spline  is  the  ratio  of  two 
polynomial  splines.  Thus,  a  rational  B -spline  can  be  expressed  as  the  ratio  of  two  series  of  B-splines, 
the  degree  of  which  is  the  maximum  degree  of  the  numerator  and  denominator.  It  should  be  noted 
that  the  common  term  “NURBS”  stands  for  non-uniform  rational  B-splines  and  refers  to  the  fact 
that  the  knots  need  not  be  equally  spaced  over  the  parametric  interval  and  that  both  numerator  and 
denominator  have  the  B-spline  representation.  In  the  present  work,  rational  splines  are  not  used  - 
only  polynomial  cubic  splines.  (Hence,  the  name  NUBS:  non-uniform  B-splines). 


Current  Uses  in  Aeroelastic  Applications 

No  direct  applications  of  NUBS  to  aeroelastic  methodologies  have  been  found  in  the  literature. 
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Mathematical  Description 


Letting  Co, . . . ,  C„-\  be  a  set  of  n  points  in  one  looks  for  a  spline  curve  of  degree  k  passing 
through  those  points.  A  spline  curve,  C(«),  with  «  €  9ft,  is  the  mapping  of  a  continuous  series 
of  line  segments  between  sequential  points,  called  knots,  denoted  by  uo,Ui, ,  u„+ic^  so  that 
Uq  <  u  <  «„+*,  and  where  the  knots  satisfy  the  relation  Ui  <  m,+i.  Thus,  for  a  spline  curve  of 
degree  k  one  writes 

C{u)  =  "^Bj,k{u)Pj  (1) 

j=0 

and  tries  to  find  the  “control  points”  P,-,  where  0  <  /  <  n  -  1,  by  solving  the  linear  system 


C, 


=  C(M,)  =  E 

j=0 


(2) 


Although  many  different  types  of  splines  exist,  the  focus  of  this  work  is  the  “basic”  spline  (or 
B-spline)  of  degree  3. 

One  defines  the  B-spline  function  of  order  k  +  I  (or  degree  k)  as 


Bi,k(.u) 


U  —  Ui 


Bit-\ 


(«)  + 


Uj+k+l  —  u 
Ui+k+\  ~~  Wj+1 


Pi+l,*-l(w) 


(3) 


where 

Bi,o(u)  = 

Here,  is  a  basis  function  on  the  interval  u  €  [uq,  though  the  functions  are  defined  along 

the  entire  line. 

Note  that  for  representation  of  surfaces,  splines  are  generalized  via  the  tensor  product  of  the 
representations  of  two  curves  to  yield  a  surface  S{u,v)  given  by 


1  if  «;  <  M  <  Ui+i  and  w,-  <  m,+i 
0  otherwise 


(4) 


m-1  n—l 

S(u,  v) 


i=\  7=1 


(5) 


where  B,-,*  are  the  B-splines  in  the  u  direction  (here  for  each  input  station  direction),  Bj,i  are  the 
B-splines  in  the  v  direction,  Pij  are  coefficients  multiplying  these  splines  in  order  to  fit  the  data 
(i.e.,  control  points),  m  and  n  correspond  to  the  parameter  n  of  Eq.  (1)  in  the  u  and  v  directions, 
respectively,  and  k  and  C  are  the  degrees  of  the  splines  for  the  two  directions.  This  can  also  be 
represented  as 

m— 1 

Siu,v)=Y^Qiiv)Bik{u)  (6) 

i=l 

where 

Qi(v)=j2PijBji(v)  (7) 

;=i 

B-splines  have  several  useful  and  unique  properties  [1]: 
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1.  B-spline  representations  are  invariant  to  linear  transformations. 

2.  A  B-spline  curve  is  contained  within  the  convex  hull  of  its  neighboring  control  points.  This 
means  that  movement  of  any  one  control  point  will  result  in  only  a  local  perturbation. 

3.  B-spline  curves  of  order  k  with  no  multiple  interior  knots  axe  k  —  2  times  differentiable. 
Note:  for  Hermite  interplation  with  order  k  polynomials,  we  get  continuity,  which  gives 

4.  A  B-spline  approximation  is  variation  diminishing,  meaning  that  a  B-spline  approximation 
will  cross  the  origin  no  more  times  than  the  original  function. 

5.  The  B-spline  is  local  in  nature  with  respect  to  the  control  net. 

A  natural  spline  inteipolant  is  used  here,  since  the  derivatives  at  the  nodes  and  boundaries 
are  unknown,  making  the  use  of  a  complete  or  Hermite  interpolant  difficult.  The  natural  spline 
interpolant  is  defined  as  a  cubic  spline  that  is  continuous  on  the  interval  a  <  x  <b  and  minimizes 
the  integral 

f\g"(x)fdx  (8) 

Ja 

The  second  derivative  of  the  function,  g  (x),  is  continuously  differentiable  and  must  satisfy  the 
conditions 

g"ia)  =  0  g"(b)=0  (9) 

The  first  derivatives  are  subject  to 

g'(a)  =  A  g'ib)  =  B  (10) 

where  A  and  B  are  given  constants,  which  suggests  that  g(x)  is  nearly  linear  at  the  endpoints  a 
and  b  [2].  Natural  spline  end  conditions  can  produce  undesirable  oscillations  when  the  data  vary 
rapidly  [3]. 


Implementation 

The  NUBS  method  is  implemented  with  the  aid  of  a  library  of  NURBS  routines  called 
DT_NURBS,  developed  at  the  David  Taylor  Research  Center  (DTRC)  [4].  According  to  [4],  in 
order  to  do  surface  blending,  needed  in  aeroelastic  applications,  it  is  recommended  that  polynomial 
splines  be  used  because  rational  splines  have  a  tendency  to  generate  poles  and  cause  numerical 
problems.  Since  these  routines  were  originally  developed  for  CAD  usage,  a  main  program  and 
surface  generating  routine  were  written  to  implement  polynomial  splines  using  the  DT_NURBS 
package. 

The  primary  difference  from  the  CAD  applications  is  the  nature  of  the  data  that  are  input.  In 
aeroelasticity  applications,  the  data  consist  of  the  grid  from  either  a  structural  mesh  or  a  CFD 
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surface  grid,  along  with  evaluations  of  some  functions  at  those  grid  points  that  are  to  be  converted 
to  the  other  grid.  While  the  NURBS  library  routines  for  data  interpolation  require  regular  grids, 
aeroelasticity  data  are  not  so  restricted.  Thus,  the  application  of  this  technique  requires  some 
manipulation  of  the  input  data. 

This  manipulation  is  accomplished  via  a  subroutine  based  on  a  similar  application  by  Robert 
Ames  [5]  of  DTRC.  His  original  FITSURF  routine  has  been  modified  for  use  here. 

The  input  data  must  first  be  converted  to  a  regular  grid.  It  is  assumed  that  the  input  data  are 
defined  on  a  semi-structured  grid.  That  is,  the  grid  points  at  which  data  are  defined  can  be  thought 
of  as  being  in  a  two-dimensional  array  format  along  the  surface.  The  number  of  points  along 
each  “column”  («-direction)  does  not  have  to  be  identical,  and  the  data  in  each  “row”  (u-direction) 
are  not  required  to  lie  along  constant  locations  within  their  respective  columns.  An  example  of  a 
semi-structured  grid  is  shown  in  Fig.  6-1. 


Fig.  6-1:  A  semi-structured  grid 

Before  spline  functions  can  be  created  from  the  non-uniformly  spaced  grid  points  and  associated 
data,  it  is  necessary  to  perform  certain  transformations  to  “regularize”  the  spacing  of  the  grid  points. 
First  the  maximum  number  of  points  in  any  one  column  or  station  is  determined  and  used  to  generate 
a  regularly  spaced  set  of  “knots”  from  the  given  grid  points.  For  the  sake  of  accuracy,  this  must 
be  done  such  that  no  surface  features  are  lost.  Also,  since  the  DT_NURBS  library  routines  are  not 
capable  of  handling  coincident  grid  points,  the  method  will  stop  with  an  error  message  if  coincident 
points  are  discovered. 

The  next  step  is  to  generate  a  new  set  of  known  points  on  the  surface.  For  each  station  of  data, 
a  multivariate  line  parameterization  routine  is  called:  DTGPAR.  In  this  routine,  each  line  (station) 
of  data  is  normalized  so  that  it  lies  within  the  interval  [0, 1]  by  dividing  by  the  pseudo-arclength 
parameter  s  defined  as 


^  [(x,  —  +  (yi  —  yi-\)^  -b  (Zi  —  (11) 

1=2  ^ 

where  N  is  the  total  number  of  points  along  the  station  and  x,-,  y,-,  Zi  are  Cartesian  coordinates  that 
define  the  position  of  the  i"'  grid  point.  For  large  N,  s  approaches  the  minimum  arclength  of  a 
smooth  curve  drawn  through  the  points.  This  parameterization  is  made  so  that  a  natural  spline  can 
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be  fitted  to  each  curve.  The  natural  spline  is  chosen  so  that  high-order  derivatives  are  zero  at  the 
endpoints. 

The  natural  spline  is  fitted  via  a  subroutine  called  DTNSI.  This  subroutine  requires  that  the 
independent  data  fall  within  an  interval  [0,  1];  hence,  the  previous  call  to  DTGPAR  is  made.  For 
the  independent  variable  values  and  their  corresponding  dependent  variables,  a  banded  matrix  of 
B-spline  values  is  formed  at  the  data  points.  The  linear  system  of  equations  that  choose  the  B-spline 
coefficients  to  match  the  input  data  is  factored  and  then  solved. 

Through  experimentation,  it  has  been  determined  that  a  spline  of  degree  3  is  the  most  robust 
and  accurate  for  the  surfaces  under  consideration.  The  linear  equations  are  solved  by  factoring  the 
banded  coefficient  matrix  using  Gaussian  elimination,  so  that  coefficients  that  identify  the  B-spline 
are  then  known. 

Finally,  the  new  set  of  data  points  that  are  located  at  constant  parametric  locations  u  =  «o,  « i ,  •  •  • 
are  computed  in  subroutine  DTSEPP,  using  the  univariate  spline  definition. 

The  u-direction  must  also  be  parameterized.  This  is  accomplished  by  applying  the  first  point 
for  each  knot  along  the  u-axis  and  calling  subroutine  DTGPAR  (see  previous  description). 

Finally,  a  new  surface  that  incorporates  all  of  the  newly  splined  data  needs  to  be  defined.  This 
is  accomplished  by  a  call  to  subroutine  DTCRBL.  DTCRBL  constructs  a  tensor  product  spline 
surface  from  the  curves  previously  generated  at  constant  parameter  lines  based  on  Eq.  (5).  This 
permits  the  same  use  of  DTNSI  as  before  by  parametrizing  the  surface  as  described  in  Eq.  (5). 


Limitations 

•  There  must  be  at  least  4  curves  and  at  least  4  points. 

•  Contiguous  data  points  can  be  coincident  in  two  of  the  three  directions,  but  not  all  three  (i.e., 
no  surface  knuckles  or  chimes). 

•  Degenerate  data  without  C°  continuity  will  be  “smoothed  over”  and  C°  continuity  is  enforced. 

The  following  limitation  on  the  search  routine  should  also  be  noted.  At  this  point,  the  new 
dependent  data  variables  can  be  evaluated  at  the  new  grid  points.  Because  these  routines  require 
that  the  data  points  lie  in  the  interval  [0, 1],  a  multivariate  interpolation  is  used  to  convert  the  x, 
y,  z  coordinates  of  the  unknown  data  point  to  this  interval  with  respect  to  the  original  data  and 
its  parameterization.  This  last  caveat  is  extremely  important.  If  the  two  grids  are  not  directly 
coincident,  independent  parameterization  of  the  new  data  set  will  lead  to  a  skewed  and  inaccurate 
representation. 
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7.  THIN-PLATE  SPLINE  METHOD  - 
MATHEMATICAL  FORMULATION 


Nomenclature 


a 

A 


at 

{a} 

MxMz 

[Bl  [Bg] 
[Big] 

D 

H(x) 

{H}AHg} 

^2m+25-£ 

i 

m 

n 

N 

[i?],  [Rg] 

[Ri] 

s 

t 

X 

Xi,  Xg, 


A  set  of  known  points  in  A 
A  surface  in 

Undetermined  coefficients 

Column  matrix  of  undetermined  coefficients 

Undetermined  coefficients 

Column  matrix  of  undetermined  coefficients 

Matrices  constructed  from  basis  functions  evaluated  at  given  points 

Coupling  matrix  constructed  from  basis  functions  evaluated  at  given 

and  interpolated  points 

Differential  operator 

Function  to  be  interpolated 

Column  matrices  of  given  values  of  the  function  to  be  interpolated 

Column  matrix  of  interpolated  values  of  the  function 

A  generic  function  used  to  define  the  spline  functions 

Order  of  the  space  dimensionality 

Order  of  the  partial  derivatives  in  the  energy  function 

Total  number  of  points  to  be  interpolated 

Total  number  of  given  points 

Matrices  containing  coordinates  of  the  given  points 

Matrices  containing  coordinates  of  the  points  to  be  interpolated 

Parameter  needed  to  define  the  type  and/or  order  of  K 

Generic  independent  variable 

Position  vector  to  an  arbitrary  point  in  Cartesian  space 

Position  vector  to  the  ixh  given  points  in  Cartesian  space 

Position  vector  to  the  iih  point  to  be  interpolated  in  Cartesian  space 


Definition 

The  method  of  thin-plate  splines  (TPS),  also  called  surface  splines,  provides  a  means  to  character¬ 
ize  an  irregular  surface  by  using  functions  that  minimize  an  energy  functional  [4].  This  methodology 
is  very  similar  to  the  multiquadric-biharmonic  method  developed  by  Hardy  [1].  The  primary  dif¬ 
ference  in  these  two  methods  is  the  basis  functions  used.  Here,  the  problem  is  approached  from  an 
engineering  or  physical  representation  of  the  surface.  That  is,  for  a  one-dimensional  (1-D)  problem, 
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elementary  cubic  splines  can  be  interpreted  as  equilibrium  positions  of  a  beam  undergoing  bending 
deformation  [2].  For  a  2-D  problem  (such  as  a  surface),  these  splines  can  be  determined  from  the 
minimization  of  the  bending  energy  (thus  defining  the  equilibrium  position)  of  a  thin  plate.  Since 
these  types  of  splines  are  invariant  with  rotation  and  translation,  they  are  very  powerful  tools  for 
the  interpolation  of  moving  or  flexible  surfaces  [3].  It  should  be  noted  that  the  infinite-plate  splines 
method  is  a  special  case  of  the  TPS  method;  for  2-D  they  are  exactly  the  same  mathematically. 


Current  Uses  in  Aeroelastic  Applications 

Specific  aeroelastic  applications  are  unknown  for  implementation  as  a  method  more  general  than 
its  2-D  form,  which  is  essentially  the  same  as  the  IPS  method  discussed  in  Chapter  4. 


Mathematical  Description 


Elementary  cubic  splines  characterize  the  static  equilibrium  configuration  of  a  slender  beam  [2]. 
Thin-plate  splines  minimize  similar  functionals  generalized  to  2-D  of  a  thin  plate.  There  are  also 
generalized  versions  applicable  to  higher-dimensional  problems.  The  methodology  defined  here 
was  verified  mathematically  by  Duchon  [3, 4].  The  bending  energy  for  a  thin  plate  can  be  written 


as 


=  I  \D 


(1) 


where  ^2  is  the  domain  of  the  plate,  v  is  the  displacement  of  the  plate,  and  D  is  a  partial  differential 
operator.  The  splines  that  minimize  this  function  are  difficult  to  compute.  Duchon  [4]  extended  the 
functional  to  multi-dimensional  domains  wherein  a  generalized  version  of  Eq.  (1)  now  becomes 


<D  =  f  (2) 

When  subject  to  the  restriction  that  m  >  i/2  where  point  values  are  used  (as  is  the  case  here),  this 
functional  is  very  easy  to  solve. 

Duchon’s  extension  of  Eq.  (1)  to  Eq.  (2)  also  has  the  advantage  that  the  functional  in  Eq.  (2) 
is  invariant  with  respect  to  translations  and  rotations.  Moreover,  if  a  similarity  transformation 
{t  at)  is  applied  to  the  surface  v,  the  interpolation  is  multiplied  by  some  power  of  |a  |.  Therefore 
the  interpolation  can  be  applied  to  a  nondimensionalized  set  of  data  and  will  obtain  the  same  result 
as  applying  the  interpolation  to  the  original  data.  It  is  very  important  that  only  one  solution  exists 
to  the  minimization  of  the  functional  in  Eq.  (2).  This  uniqueness  was  proven  by  Duchon  [3]  for 
solutions  which  are  of  the  form 


o- (r)  =  X]  K2m+2s-i {t  -  a) pit)  (3) 

aeA 

where  a  represents  a  set  of  points  that  lie  within  a  finite  surface  A  C  91^  and  p  €  Pm-\  where  Pm-\ 
is  a  unisolvent  subset  of  A.  The  dependence  of  the  generic  function  K2m+zi-i  on  the  parameters  m 
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and  C,  as  well  as  another  s,  is  reflected  in  the  subscript  of  K  to  describe  its  type  and  order.  It  must 
also  be  true  that 

J2aaq(a)=0  (4) 

a€A 

where  the  function  q  and  its  results  are  also  a  part  of  the  subset  (V^  e  Pm-\)  for  the  set  of 
prescribed  points  in  A. 

Duchon  [3]  has  shown  that  in  order  to  describe  a  thin-plate  function,  the  parameters  should  be 
set  to  m  =  2,  S'  =  0,  and  t  =  2.  This  yields  a  specific  form  for  the  generic  function  so  that 

o{t)  =  ySo  +  A?  +  Z!  “''1^  “  ^1^ log  U  -a\  (5) 

aeA 

with  Y,aeA  “a  =  0  and  UaO  =  0  in  accordance  with  Eq.  (4).  So  that  the  function  can  be 
considered  to  be  continuous,  the  function  \t  —  al^log|f  —  a|  is  extended  to  include  a  =  0  in 
accordance  with  its  limiting  value  of  0.  The  coefficients  of  the  low-order  polynomials  can  be  found 
as  indicated  by  [3].  These  additions  to  the  primal  formulation  of  the  TPS  method  lead  to  a  set  of 
functions  that  minimize  the  norms  of  the  second  derivatives  of  the  interpolant.  The  surface  defined 
by  A  is  subject  to  the  limitation  that  it  must  not  be  contained  totally  in  a  line  or  a  point. 

The  thin-plate  function  of  Eq.  (5)  can  be  used  to  construct  a  function  H(x),  given  its  values  at 
a  set  of  N  discrete  “nodal”  values  Hi  =  H(xi)  at  “nodes”  x  =  x,  for  i  =  1,2,...,//.  Here  the 
vector  X  =  xi  -h  yj  -f  zk  with  unit  vectors  i,  j,  and  k  along  the  Cartesian  coordinate  directions  x,  y, 
and  z,  respectively.  This  describes  the  domain  91^. 

The  interpolation  function  can  be  written  as 


N 

H(x)  =  ^0  +  PxX  +  ^yy  +  PzZ  +  Yl  ~  log  I*  ~  I  (6) 

i=l 

where  the  scalar  term  |x  —  x,  p  is  defined  as  (x  —  x,)  •  (x  —  x,).  (It  is  noted  that,  when  specialized 
to  2-D,  the  identical  mathematical  equation  is  found  in  Eq.  (10)  of  Chapter  4.) 

The  coefficients  a,,  for  i  =  1,2 . N,  and  ^o,  ^x,^y,  and  pz  are  to  be  determined  by  solution 

of  the  minimization  problem.  The  result  is  that  these  coefficients  can  be  found  by  applying  Eq.  (6) 
to  each  of  the  N  nodes  yielding 


N 

Hi  =  +  ^xXi  -f-  ^yyi  +  ^zZi  +  Z  |x<-  -  Xj  P  log  |X£  -  x^  |  (7) 

/=i 

subject  to  the  side  conditions 

N  N  N  N 

Z“'  =  =  Z^'O'i  =  Z“'^'  =  0 

1=1  i=l  (=1  j=l 

In  order  to  solve  for  the  unknown  coefficients,  one  can  introduce  a  matrix  notation  such  that  Eqs.  (7) 
and  (8)  become 

{H}  =  [5]{a}  -f  [Rf{a}  =  0  (9) 
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(10) 


where  the  elements  of  the  N  x  N  matrix  [5]  are 

Bij  =  lx,-  -x_,  plog|x,'  -x_,  | 

the  matrix  [/?]  is 

[R] 


1 

Xl 

f  I'l 

Zi 

1 

Xl 

1  ^2 

Z2 

1 

.  Xn  . 

1  yN 

.  Zn  . 

and  {^}  are  given  by 

Hi  ■ 

OCl 

1 

{H}=- 

H2 

{a}  = 

Cl2 

{iS}  =  ■ 

.  Hn  , 

.  <Xii 

,  A  - 

(12) 


Now,  given  the  coordinates  of  all  nodal  points  and  the  values  of  the  function  Hi  at  those  points,  one 
finds  {a}  as 


(11) 


{a}  = 


[5r’-[5r'[i?][[^f[5r'[i?]]  \rV[b]-^  {h} 


(13) 


Implementation 


The  implementation  into  a  computer  code  is  straightforward.  First,  the  undetermined  coefficients 
oci,  ^y,  A,  and  are  found  from  equation  (13).  This  equation  is  rewritten  assuming  that  [5g] 
is  the  matrix  [5],  that  [Rg]  is  the  matrix  [R]  and  that  {He)  is  the  column  matrix  {H};  they  are 
subscripted  with  the  G  to  emphasize  that  these  matrices  are  evaluated  at  the  given  points  Xg;  -  Thus, 


[Bg]~^  -  [5G]“‘[i?G]  [[i?G]''[5G]''[i?G]]  '  [1?g]''[5g]“']  {Hg}  (W) 


It  is  desired  to  find  the  values  of  the  function  H  evaluated  at  the  interpolated  points  x/,,  i  = 
1,2,  Denoting  the  column  matrix  of  the  values  of  H  at  these  n  points  as  {H[},  we  note  from 

the  first  of  Eqs.  (9)  that 

{Hi}  =  [5/g]{q;}  +  (1^) 


where  the  elements  of  [Big]  are 

BiGtj  =  |X/,.  -  Xgj  P  log  |X;,  -  Xg;  I 

[/?/]  is  given  by 


(16) 


(17) 
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and  {)6}  is 


(18) 


Limitations 

When  specialized  to  2-D  and  limited  to  a  global  implementation,  the  TPS  method  has  the  same 
limitations  as  the  method  of  infinite  plate  splines  (IPS).  However,  when  generalized  to  3-D  and 
when  implemented  as  a  local  method  (i.e.,  with  sub-domaining),  it  outperforms  the  IPS  method. 
The  dimension  of  the  interpolant  has  to  coincide  with  the  dimension  of  the  (sub)  domain  being 
interpolated.  If  the  (sub)  domain  collaps  to  a  lower  order  (all  points  along  the  same  line  in  a  original 
2-D  interpolation,  or  all  points  on  the  same  plane  in  a  3-D  interpolation),  the  side  condition  matrix 
[R]  will  have  proportional  rows,  making  the  overall  interpolation  scheme  unstable.  The  points 
within  a  (sub)  domain  has  to  first  be  preprocessed,  eventually  rotated,  and  only  then  the  order  of 
the  interpolant  is  defined. 
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8.  FINITE-PLATE  SPLINE  METHOD 
MATHEMATICAL  FORMULATION 


Nomenclature 


m 

N 

X,  y,z 
mix,  y) 
0(j(;y) 

Hx, }’) 

{r} 

[S2] 

m 

L"J 

{«} 

[C] 

{Qs} 

[rlTs] 

iqa) 

lira] 

[K] 

[cc] 

[T] 

{Fa) 

[Fa) 

{5qs} 

iSqa) 

a,b 

t-O  >  O  »  •  "  •  5  ^11 

T) 

i 

[A] 

[T] 


Number  of  structural  grid  points 
Number  of  aerodynamic  grid  points 
Number  of  grid  points  in  virtual  surface 
Coordinates  of  a  generic  point  (Cartesian) 

Displacement  along  the  z  axis 

Rotation  about  the  x  axis 

Rotation  about  the  y  axis 

Column  matrix  of  displacement  and  rotations 

Matrix  of  shape  functions  and  their  derivatives 

Column  matrix  of  local  element  displacements  and  rotations 

Row  matrix  of  shape  functions 

Column  matrix  of  global  displacements  and  rotations  at  virtual  points 
Connectivity  matrix 

Column  matrix  of  displacements  and  rotations  at  structural  points 

Matrix  of  shape  functions  evaluated  at  the  structural  nodes 

Column  matrix  of  displacements  at  aerodynamic  points 

Matrix  of  shape  functions  evaluated  at  the  aerodynamic  grids 

Free-free  stiffness  of  the  plate 

Diagonal  matrix  of  weighting  constants 

Mapping  matrix  relating  stmctural  and  aerodynamic  grid  points 

Column  matrix  of  aerodynamic  loads  at  the  aerodynamic  grid  points 

Column  matrix  of  loads  at  the  structural  grid  points 

Column  matrix  of  virtual  displacements  at  structural  grid  points 

Column  matrix  of  virtual  displacements  at  aerodynamic  grid  points 

Nondimensional  coordinates 

Dimensions  of  the  quadrilateral  element 

Undetermined  coefficients 

Non-dimensional  form  of  quantity  ( . ) 

Reference  length 

Matrix  of  shape  functions  for  a  4-node  quadrilateral  element 
Matrix  of  constants 
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Definition 


The  original  finite-plate  spline  (FPS)  method  of  Appa  [1]  employs  uniform  plate  elements  to 
represent  a  given  planform  by  a  number  of  quadrilateral  or  triangular  bending  elements.  A  virtual 
surface  is  defined  and  constrained  to  pass  through  both  structural  and  aerodynamic  grid  points. 
These  constraints  are  imposed  at  the  element  level,  and  a  proper  choice  of  shape  functions  is 
required.  The  shape  functions  define  a  virtual  surface  that  relates  displacements  at  the  structural 
and  aerodynamic  grid  points.  The  node  points  of  the  virtual  surface  generated  in  this  method  to 
interface  the  two  boundaries  does  not  have  to  coincide  with  the  number  of  grid  points  of  either 
mesh.  Usually,  however,  the  grid  points  of  the  virtual  surface  are  a  subset  of  the  structural  grid 
points. 

The  FPS  method  has  the  advantage  of  accomodating  changes  in  fluid  and  structural  models  easily. 
In  addition,  this  approach  conserves  the  work  done  by  the  aerodynamic  forces  when  obtaining  the 
global  nodal  force  vector.  Finally,  as  a  finite-element-based  method,  it  is  sufficiently  versatile  to 
accurately  model  realistic  body  geometries. 


Current  Uses  in  Aeroelastic  Applications 

The  original  formulation  of  Appa  [1]  seems  to  be  still  in  use  at  Northrop  Corporation.  A  3-D 
extension  of  it  has  been  incorporated  in  ENSAERO  (NASA  Ames)  as  briefly  described  in  Refs.  [3] 
and  [4],  but  no  details  can  be  found  in  the  literature. 


Mathematical  Description 

In  this  section,  a  linear  mapping  matrix  is  derived  using  the  structural  finite  element  method, 
based  on  the  minimum  energy  principle.  The  first  result  is  a  direct  compilation  of  the  work  described 
in  [1]  that  only  deals  with  an  out-of-plane  bending  of  the  virtual  plate.  Later,  a  generalization  of 
that  for  3-D  displacement  is  presented. 

Consider  a  wing  representation  such  that  the  wing  lies  in  the  x-y  plane,  and  its  surface  is  divided 
in  subdomains  where  the  finite  element  for  interpolation  is  applied.  We  assume  that  there  are 
N  points  in  this  discretization,  and  those  points  are  not  necessarily  coincident  either  with  the  m 
aerodynamic  points  or  with  the  n  structural  displacement  points. 

Even  though  not  restricted  to  this  topology,  consider  a  four-noded  quadrilateral  element.  The 
displacement  w{x,  y),  along  the  z  direction,  and  the  rotations  6  (x,  y),  about  the  x  axis,  and  0(x,  y), 
about  the  y  axis,  at  any  point  (x,  y)  within  the  element,  are  given  by 

{r}  =  [Q][q^^^]  (1) 
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where 


w 

{r}=. 

9 

[^2]  = 

Lw.yJ 

.  <l>  . 

^4  ^4  <p4 

and  where  the  angles  satisfy  the  relation 


e  = 


dw 

dy 


0  = 


dw 

dx 


(2) 


(3) 


In  the  above,  L<yJ  is  a  (1  x  12)  row  matrix  of  shape  functions  used  to  interpolate  the  displacement 
field  within  the  element  in  terms  of  its  nodal  degrees  of  freedom  {9^®^ }-  As  suggested  by  Appa  [1], 
the  shape  functions  given  by  Argyris  [5]  are  a  natural  option  (see  “Implementation”  below). 

The  local  displacement  column  matrix  can  always  be  related  to  the  displacement  column 
matrix  of  the  virtual  mesh  {^}  (an  iV  x  1  column  matrix)  by  means  of  a  certain  connectivity  matrix 
[C]  (see  [6]).  Therefore,  for  the  element 

[q^^^].=[CUq}  (4) 


With  Eqs.  (1)  and  (4),  each  of  the  n  structural  points  can  be  evaluated  in  terms  of  the  displacement 
column  matrix  of  the  virtual  mesh  {q}  and  assembled  in  the  final  column  matrix  If  [i/fj] 
represents  the  assembled  matrix  for  the  local  shape  functions  evaluated  at  the  structural  nodes,  and 
simultaneously  related  to  the  virtual  surface,  i.e.. 


[fs] 


mx[C]r 

[^UCh 

L  [a].[C].  J 


(5) 


then  the  structural  displacement  column  matrix  }  is  written  as 

{qs)  =  [fs]{q} 


(6) 


Similarly,  the  aerodynamic  displacement  column  matrix  {qa)  can  be  written  as 

{qa)  =  \.fa\{q}  (7) 

Since  the  virtual  surface  is  required  to  pass  through  the  given  set  of  structural  points  {qs},  the  penalty 
method  [6]  is  employed.  The  equilibrium  state  of  the  virtual  structure  is 

[K]{q}  +  [a][fsf  {[fAiq]  -  =  0  (8) 

where  [AT]  is  the  free-free  stiffness  of  the  plate  and  [a]  is  a  diagonal  matrix  of  weighting  constants 
that  can  be  used  to  scale  the  elements  of  [AT]  and 
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Eq.  (8)  can  be  put  in  the  form 


{[ar^[K]  +  [fsf[fs])  {q}  =  [fsV  {qs)  (9) 

and,  therefore,  symbolically  solved  for  {q}  as 

{q}  =  +  [fsfmy'  {qs)  (10) 

Note  here  that  even  though  the  matrix  [K]  is  originally  singular,  the  addition  of  the  constraint  matrix 
makes  the  total  matrix  non-singular. 

Finally,  using  Eq.  (10)  in  Eq.  (7),  one  obtains 

Wa)  =  [%]  +  lirsVmy'  Ifsf  W.}  (11) 

Therefore,  the  (3m  x  3n)  mapping  matrix  relating  the  structural  and  aerodynamic  displacements  is 
given  by 

[r]  =  [fa]  {[ocr^[K]  +  [fA^lfs])'"  [fsf  (12) 

Now,  consider  the  distribution  of  the  aerodynamic  load  { }  on  the  n  structural  grid  points.  From 

the  principle  of  virtual  work,  the  following  relation  holds  [7] 

{59,r{F,}  =  {5?.r{F,}  (13) 

where  {F,}  is  the  load  column  matrix  corresponding  to  the  structural  grid  points. 

Since  the  virtual  displacements  have  to  be  compatible,  substituting  the  variation  of  Eq.  (1 1)  into 
Eq.  (13),  one  obtains 

=  {FJ  (14) 

and  therefore, 

{F,}  =  [Ff{FJ  (15) 

where  [TY  is  the  load  transformation  matrix. 


Implementation 

Several  types  of  bending  elements  could  be  used  in  this  formulation  described  in  the  previous 
section.  As  discussed  in  [1],  a  C°-type  element  that  employs  independent  interpolation  functions 
for  displacement  and  rotations  did  not  yield  satisfactory  results.  It  is  recommended  to  use  a  C^-type 
element.  The  one  used  in  [1]  that  provided  good  results  is  based  on  the  natural  modes  proposed  by 
Argyris  [5]. 

Consider  a  quadrilateral  element  and  an  associated  local  Cartesian  system.  The  nondimensional 
coordinates  are  defined  as  ^  ^  and  q  =  where  a  and  b  are  the  dimensions  of  the  quadrilateral 
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element  (Fig.  8-2).  The  inteqjolation  polynomial  is  for  a  cubic  serendipity  element  [6],  and  is  given 
by 

u7  =  Co  -I-  +  C2rj  -f  C3^r}  +  +  csn^  -b  -bcet^??  4-  Cn^ri^  4-  Cg^^  4-  4-  Cio^^??  4-  Cn^ (16) 

where  w  =  j,  with  ^  being  a  reference  length.  Similarly,  consider  the  non-dimensional  form  of 
the  rotation  _ 

07] 

The  non-dimensional  measures  can  be  related  to  the  corresponding  dimensional  ones  (Eq.  2)  by 

ml  r 7  0  0 ■ 

{r}  =  I  0  [  =  0^0  {r}  (18) 

4>  \  L  0  0  §  _ 

With  the  relations  defined  by  Eq.  (17),  one  can  write 

{f}  =  [;v]  {c}  (19) 


where 


■  1 

n 

H  n 

ri^ 

r)^ 

[N]=  0 

0 

2 

2? 

0 

4  T] 

2^ 

A^r, 

0 

6 

0 

-2 

0 

-2j7 

-4? 

0 

-A^n 

—Ix]^ 

0 

-6fr]  -2r) 

anu  j 

{c}  =  {  Co  Cl  C2  •  •  •  Cii  [  (21) 

In  order  to  have  the  shape  functions  in  a  more  suitable  form,  consider  the  solution  of  the  constants 
defined  in  Eq.  (21)  as  function  of  the  nondimensional  nodal  values  Hence, 


where 


{c}  =  [y]{gW} 


16 

0  0 
0  0 
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Finally,  combining  Eqs.  (19)  and  (22),  one  can  compute  [S2]  from  Eq.  (2)  as 


[Q]  =  [A^][y]  (24) 

Note:  From  Eq.  (18),  it  directly  follows  that  {r}  = 


Limitations 

As  the  method  is  quite  new,  few  specific  limitations  are  known  other  than  its  requiring  large 
amounts  of  memory  and  CPU  time. 
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Fig.  8-1:  Representation  of  a  wing  with  two  distinct  sets  of  grid  points  and  the  virtual  mesh 


Fig.  8-2:  (a)  Quadrilateral  element  in  x  —  y  plane;  (b)  Element  in  ^  plane 


9.  INVERSE  ISOPARAMETRIC  MAPPING 
METHOD  -  MATHEMATICAL  FORMULATION 


Nomenclature 


A,B,C 

a 

%!>*••»  ^y4 
Cp 

n 

N 

M 

P 

Q 

u 

, 

X 

>  yt 

xf 


Coefficients  of  quadratic  equation 
Slope  of  a  straight  line 
Intermediate  constants 
Intermediate  constants 
Constant  associated  with  point  P 
Number  of  iterations 
Shape  function 

Interior  point;  aerodynamic  point 
Corner  node 
Side  point 

Displacement  field;  any  field 
Field  value  at  nodal  point  i 
Cartesian  coordinates 
Pair  {x,  y) 

Cartesian  coordinates  of  nodal  point  i 
Pair  (xf ,  yf) 

Tolerance  on  the  error  after  n  iterations 
Local  coordinates 
Pair  (I,  T]) 


Definition 

The  Inverse  Isoparametric  Mapping  (IIM)  method  is  based  on  finite  element  analysis  where  an 
isoparametric  element  uses  the  same  shape  functions  (iV,  )  to  interpolate  both  the  coordinate  and  the 
displacement  vectors  [1].  This  interpolation  is  a  one-to-one  mapping,  termed  isoparametric,  from 
a  local  (I)  to  a  global  Cartesian  (x)  or  a  displacement  (u)  plane.  In  mathematical  form 

x  =  ^Ni(oxt  y  =  u  =  y2mx  (d 

i  i  i 

where  jcf ,  yf  are  Cartesian  coordinates  of  the  structural  nodal  point  i,  and  x  =  (x,  y),  $  =  (f ,  rj). 
On  the  other  hand,  if  one  has  a  given  point  in  the  global  domain  and  wants  the  local  coordinates 
corresponding  to  it,  the  inverse  of  this  mapping  involves  a  system  of  nonlinear  equations,  even  for 
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the  linear  strain  element.  The  system  of  nonlinear  equations  can  be  solved  numerically  using  an 
iterative  approach. 


Current  Uses  in  Aeroelastic  Applications 

As  discussed  in  [2],  IIM  is  often  used  in  dynamic  finite  element  analyses  (e.g.,  remeshing),  and 
highly  nonlinear  dynamic  analyses  (e.g.,  nodal  contouring).  Pidaparti  [3]  presents  the  method  in 
the  context  of  aeroelastic  analysis,  even  though  no  significant  result  is  presented.  At  NASA  Ames, 
Gurus wamy  and  co-workers  implemented  this  method  in  one  of  the  ENSAERO  versions  [4], 


Mathematical  Description 

As  mentioned  above,  the  idea  of  IIM  is  to  find  local  coordinates  from  the  global  coordinates 
of  a  certain  point  M.  In  general,  this  cannot  be  obtained  analytically.  Instead  of  solving  a  system 
of  nonlinear  equations,  a  direct  iterative  technique  of  order  is  often  employed.  An  improved 
version  of  it  was  presented  by  Murti  and  Valliappan  [2],  in  which  the  iteration  is  reduced  to  order 
n.  The  iteration  is  improved  by  bisecting  a  defined  line  that  passes  through  a  point  M  of  coordinate 
Xm  and  a  node  of  known  local  coordinate  such  as  a  comer  node. 

Following  [2],  let  us  consider  the  straight  line  in  the  global  frame,  P  Q,  that  passes  through  the 
point  M.  The  point  Q  is  defined  just  by  the  intersection  of  the  straight  line  with  the  side  of  the 
element.  The  mapping  of  this  line  into  the  transformed  plane  has  an  associated  image  P'Q',  which 
generally  is  a  parabolic  curve.  By  searching  along  the  curve  P'Q',  the  local  coordinates  of  the  point 


M  can  be  found. 

Consider 

PQ  =  y  =  ax  +  Cp 

(2) 

where 

(y-n-yp) 

“  “  (X„-Xp) 

(3) 

Cp  =  yp-  axp 

Using  Eq.  (1) 

in  Eq.  (2),  one  obtains 

^  Niji  =  a  NiXi  -1-  Cp 

i  i 

(4) 

where  i  varies  from  1  to  the  total  number  of  nodes  in  the  element.  This  can  be  simplified  as 

M 

1 

II 

o 

(5) 

with  c,  =  y,  —  axj. 

Note  that,  since  c,-  and  Cp  are  constants  for  a  given  M  and  nodal  coordinates  (x,  ,  y,),  Eq.  (5)  can 
be  rearranged  as 

+  C  =  0  (6) 
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such  that  ^,r}  e  [—1,  +1],  and  A,  B,  C  =  f{Ci,  Cp,  rj).  Explicit  expressions  for  these  coefficients 
are  given  in  [2]  for  elements  with  the  number  of  nodes  varying  between  4  and  9. 

One  can  now  carry  out  the  iteration  by  selecting  rjo  and  evaluating  the  coefficients  A,  B,  and  C, 
so  that,  if  A  7^  0,  Eq.  (6)  has  solutions 


(7) 


Between  the  two  solutions,  only  one  will  be  in  the  interval  [—1,  +1],  since  there  is  a  one-to-one 
correspondence  between  the  global  and  local  frames.  After  n  iterations  and  tolerance  5„,  one  gets 


i 


(8) 


After  convergence  has  been  achieved  for  the  local  coordinates  (^m,  ?7m)>  then  one  can  directly  use 
Eq.  (1)  to  do  the  interpolation. 

There  are  some  variants  to  the  solution  presented  above.  For  example,  when  P'Q'  is  not  defined 
in  the  entire  range  oft)  6  [—  1 ,  -f  1],  a  change  of  comer  nodes  should  be  imposed.  Another  anomaly 
happens  when  the  abscissa  of  M  is  equal  to  the  abscissa  of  the  chosen  comer  node.  This  will  make 
A  =  0,  and  redefinition  of  P  Q  is  also  required. 


Implementation 

The  implementation  used  in  our  studies  is  the  one  done  by  Fithen  [5].  It  uses  a  bilinear  (4-node) 
element  and  no  information  of  the  original  stmctural  mesh  is  taken  into  account  to  determine  the 
cell  that  contains  a  given  aerodynamic  point.  Unfortunately,  there  is  no  written  documentation  of 
the  code.  We  were  unable  to  establish  a  direct  communication  with  the  author,  and  the  only  source 
of  information  was  the  program’s  FORTRAN  listing.  The  code  is  structured  as  follows. 

First,  a  2-D  search  is  done  to  determine  which  are  the  four  structural  nodes  that  surround  the 
given  aerodynamic  grid  point.  The  stmctural  nodes  are  assumed  to  form  a  stmctured  2-D  grid.  As 
mentioned  in  the  code,  “the  algorithm  is  to  count  intersections  using  the  Jordan  Curve  Theorem 
and  to  bisect  as  in  Weierstrass  approximation.” 

After  identifying  the  cell  that  contains  the  given  aerodynamic  point,  the  actual  inverse  isopara¬ 
metric  mapping  takes  place.  The  code  uses  bilinear  shape  functions,  i.e. 

Ai  =  (l-t)(l-7?)  A2  =  ^(1-7?) 

A3  =  (l-t)r;  N,=^n 

which  do  not  follow  the  classical  definition  of  ^,r]  e  [—1,  -1-1]  but  rather  /j  €  [0, 1].  For  the 
bilinear  case,  it  is  possible  to  write  a  closed  form  solution  for  (^,  tj)  instead  of  doing  the  bisection. 
Expanding  Eq.  (1)  and  using  Eq.  (9),  one  obtains 

Xm  =  +  <3x2^  +  dx-i^  +  (ix4  (10) 
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ym  =  +  ay^T}  + 


(11) 


where 

=x\-xl-xl  +  xl  ax2  =  x|  -  xf 
ax^  =  x|  -  xf  =  x\ 

ay,  =  y{-yl-yt  +  yl  ^yi^yl-yl 
^73  ~  yt  ~  yt  ~  ^1 


Eliminating  jj  from  Eq.  (11) 


which  assumes  that  Oy,  ^ 


_  ym  ^yiH  ^yt 

fly,  I  +  flyj 

0.  Substituting  this  result  into  Eq.  (10),  one  gets 
+  C  =  0 


as  defined  in  Eq.  (6),  with 

A.  —  Clx2^yi  ^x\^y2 

B  —  Uy^  (Xfu  ^xt)  "b  ^X3^y2  ^X2^yi  ^X\  (ym  ^>4) 

C  “  Q-yj  (Xffi  ^Xi')  ^X'i(ym  ^>4) 


(12) 


(13) 


(14) 


(15) 


If  fly,^  +  flyj  =  0,  then  one  should  use  Eq.  (10)  instead  of  Eq.  (11)  to  isolate  rj.  The  same 
procedure  presented  above  follows  from  there. 


Limitations 

The  present  method  is  only  suitable  for  interpolation.  For  regions  outside  the  original  structural 
grid  (e.g.,  control  surfaces  or  any  other  kind  of  aerodynamic  surface),  the  structural  grid  should 
be  extended  to  enclose  them  all.  Extrapolation  can  be  done  with  one  of  the  well  known  linear  or 
quadratic  or  cubic  spline  techniques.  The  information  obtained  on  the  extrapolated  grid  is  not  as 
accurate  as  the  one  obtained  on  the  original  grid.  Also,  the  way  the  formulation  has  been  presented, 
it  is  restricted  to  a  2-D  structural  domain.  The  3-D  formulation  is  still  to  be  derived. 
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10.  DESCRIPTION  OF  THE  ANALYTICAL  TEST  CASES 


The  analytical  or  mathematical  test  cases  were  desired  to  examine  a  number  of  different  situations 
that  could  be  encountered  during  use  of  the  algorithms.  Functions  were  chosen  to  represent  the 
different  types  of  data  which  might  arise  during  modal  analysis,  loads  integration,  etc.  The 
purpose  of  these  tests  were  to  determine  the  limiting  characteristics  of  each  of  the  algorithms. 

Therefore,  each  algorithm  was  examined  over  a  broad  range  of  functions.  In  addition,  other 
factors  that  needed  to  be  considered  included:  directional  bias,  sensitivity  to  amplitude,  sensitivity 
to  extrapolation,  and  combinations  of  complex  (sinusoidal)  and  simple  (constant)  functions 
superimposed  in  different  directions. 

The  limiting  or  most  inaccurate  test  cases  are  those  in  which  the  known  data  are  provided  on  a 
sparse  grid  and  must  be  converted  to  a  finer  grid.  This  correlates  (most  often)  to  the  conversion  of 
data  from  a  structural  (CSD)  to  an  aerodynamic  (CFD)  grid.  Thus,  all  of  the  known  function  grids 
are  sparse  and  include  both  regular  (equally  spaced)  and  irregular  (clustered  or  non-equally  spaced) 
grids.  Examples  of  these  grids  are  shown  in  Figure  10-la)-e).  Figure  10- la)  is  the  sparsest  grid 

used,  a  10  X  10  plate.  To  ensure  that  no  coding  errors  existed,  test  cases  were  interpolated  to  an 
identical  grid.  Errors  should  be  on  the  order  of  machine  accuracy  if  the  algorithms  are  correctly 
coded.  Figure  10-lb)  depicts  one  of  the  finer  initial  grids  that  was  used  to  interface  more  complex 
(multiple  sinusoidal)  functions.  Figure  10-lc)  is  the  shell  counterpart  grid  to  the  plate  grid  shown 
in  Figure  10-la),  just  as  Figure  10-ld)  is  the  shell  counterpart  to  Figure  10-lb). 

To  ensure  that  the  methodologies  include  no  bias  for  irregular  grids,  a  series  of  test  cases  was 
developed  for  an  irregular  grid,  such  as  those  that  may  be  encountered  in  some  finite  element 
models  and  experimental  configurations.  Figure  10- le)  depicts  one  of  these  irregular  grids. 


In  order  to  examine  all  of  these  factors,  a  series  of  five  test  sets  was  developed.  These  test  sets 

included  over  260  test  cases,  from  constant  functions  to  7  x  7  cycle  oscillations.  A  list  of  these  test 
cases,  with  the  functions  that  were  interpolated  along  with  the  details  of  the  grids  associated  with 
the  given  and  interpolated  functions  are  provided  in  Appendix  B.  Constant  functions,  such  as 
those  found  in  near-constant  mode  shapes  and  separated  pressure  distributions  were  examined  at 
levels  of  5  and  50  to  check  dependency  on  function  magnitude.  Linear  functions,  found  in  mode 
shapes,  structural  matrices,  pressure  distributions,  deflection  and  slope  values,  were  varied  both  in 
overall  magnitude  (5, 1,  .01)  and  in  difference  magnitude  (A±5,  A±.01).  Sinusoidal  functions  are 
also  integral  components  in  all  types  of  data  to  be  examined.  The  peak-to-peak  amplitude  was 
varied  (2  and  .02),  as  well  as  the  frequency  (1, 3,  5,  7  cycles).  The  Wgher  cycles  were  examined 
specifically  as  limiting  cases  that  might  be  encountered  during  slope  interpolations.  Examples  of 
the  contours  describing  several  of  the  sample  cases  are  provided  in  Figure  10-2. 


For  each  of  the  five  test  sets,  specific  characteristics  were  examined  for  both  plate  and  sheU-like 


Test  Set 

Characteristics  Examined 

1 

a)  algorithm  check,  b)  directional  bias 
c)  regular,  structured  grid  interpolation 

2 

irregular  grid  interpolation 

3 

extrapolation  (regular  and  irregular  grids) 

4 

diminishing  variation 

5 

beam  element  model 

50 


a)  10  X  10  Regular  Grid  for  Known  and  b)  50  x  10  Grid  for  Known  Functions 
Interpolated  Functions 


c)  10  X  10  Regular  Shell  Grid  for  Known  and  Unknown  Functions 


Figure  10-1.  A  Sampling  of  the  Grids  Used  for  the  Mathematical  Formulation 


a)  3  Cycle  Sinusoidal  Function  b)  5  Cycle  Sinusoidal  Function 


Figure  10-2.  A  Sampling  of  the  Mathematical  Functions  Evaluated  During  the  Test  Analysis. 
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Test  Set  1  -  A  parametric  study  of  various  functions  representing  the  level  and  shape  of  the  types 
of  data  that  may  be  applied  in  aeroelastic  applications  were  examined  for  a  series  of  two-  and  three- 
dimensional  grids  which  represent  typicaJ  structured  (quadrilateral  element)  structural  and  CFD 
grid  topologies.  The  impact  of  grid  clustering  was  also  examined  here.  The  sensitivity  of  the 
Algorithm  to  the  direction  of  interpolation  over  different  directions  (i.e.,  functions  that  vary  over  the 
spanwise  direction  or  the  streamwise  direction)  was  also  examined.  This  set  of  data  consisted  of 
138  test  cases.  The  first  subset  examined  die  two-dimensional  characteristics  for  streamwise 
functions.  These  functions  included;  constant  surfaces  (A=5.,  50.),  linear  functions  (A  =5.  -  0., 
1.01  -  1.02,  0.01  -  0.02),  and  sinusoidal  functions  (A=2,  1  cycle;  A=2,  3  cycles;  A=2,  5  cycles; 
A=2,  7  cycles;  A=0.02,  3  cycles;  A=0.02, 5  cycles;  A=0.02,  7  cycles). 

The  second  subset  examined  the  two-dimensional  characteristics  described  in  subset  1  for 
spanwise  functions.  The  third,  fourth  and  fifth  subsets  examined  these  functions  for  plates  and 
shells,  using  superposition  of  these  fdnctions  to  examine  more  realistic  surface  data. 

Test  Set  2  -  A  parametric  study  of  various  functions  representing  the  level  and  shape  of  the  types 
of  data  that  may  be  applied  in  aeroelastic  applications  were  examined  for  a  series  of  two-  and  three- 
dimensional  grids  diat  represent  typical  irregular  structural  (e.g.,  experimental  data)  and 
unstructured  (irregular,  mixed  triangular  and  quadrilateral)  CFD  grid  topologies.  This  set  of  data 
consisted  of  28  test  cases.  Functions  similar  to  those  in  test  set  1  were  examined.  The  amplitudes 
of  the  functions  were  decreased  by  another  order  of  magnitude  to  examine  those  effects. 

Test  Set  3  -  Using  grid  topologies  and  functions  from  Test  Sets  1  and  2,  the  methods  were 
examined  for  their  abilities  to  perform  extrapolations,  such  as  those  that  may  be  required  for 
unevenly  matched  topologies.  This  test  set  consisted  of  61  test  cases  for  both  shell  and  plate 
configurations.  The  functions  were  similar  to  those  described  in  test  sets  1  and  2. 

Test  Set  4  -  Using  grid  topologies  and  functions  from  Test  Sets  1  and  2,  the  integrity  of  the 
methods  is  examined  by  interpolation  to  finer  and  finer  grids.  The  presence  of  numerical 
oscillations  generated  in  these  tests  indicate  potential  problems  when  converting  to  very  fine  grids 
or  when  using  the  methodology  for  multi-grid  or  grid  s^uencing  CFD  codes.  This  data  set 
consisted  of  30  test  cases,  with  2  higher  cycles  above  the  initial  cycle  (computed  in  test  set  1,  runs 
A-J). 


Test  Set  5  -  The  test  cases  for  test  set  5  represent  a  cantilever  beam  of  unit  length.  The  beam  is 
originally  along  the  x-axis,  and  every  deflection  occurs  in  the  z  direction.  Two  deflections  are 
considered:  a  static  deflection  (bending)  due  to  a  distributed  force  and  the  first  three  natural 
vibration  (bending)  modes.  The  first  subset  of  cases  (testSa  -  r)  has  no  static  deflection,  only  the 
three  bending  modes,  with  two  levels  of  maximum  amplitude  (testSa  -  i,  A=1.0;  test5j  -  r, 

A=0.1),  and  three  different  grids  (10  x  10;  100  x  100;  100  x  500)  forming  a  regular  grid.  The 
second  set  of  cases  (test5al  -  rl)  has  similar  structure  as  the  first  subset,  but  now  there  is  a 
superposition  of  a  static  deflection  (test5al  -  il,  =  1.0;  test5jl  -  rl.  Astatic  =  0. 1). 

One  of  the  primary  purposes  of  using  these  sets  of  known  functions  was  that  a  set  of  analytical 
solutions  can  be  computed  for  direct  comparison.  During  the  initial  examination  of  these 
mathematical  test  cases,  the  interfaced  (interpolated)  data  were  compared  with  data  analytically 
computed  from  the  original  functions  at  the  new  grid  locations.  While  these  data  provided  good 
correlation  data  for  the  simpler  functions,  it  was  discovered  that  these  data  introduced  artificially 
large  errors  for  the  sinusoidal  functions.  These  errors  were  inflated  because  the  original  functions 
did  not  include  some  of  the  function  features  that  a  finer  grid  would  be  able  to  capture,  as  shown 
for  a  three-cycle  sinusoid  in  Figure  10-3.  To  alleviate  this  problem,  a  linear  interpolation  of  the 
analytical  data  at  points  on  the  known  grid  to  points  on  the  unknown  grid  was  used.  While  these 
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data  did  introduce  slight  errors  due  to  the  nature  of  the  interpolation,  it  provided  a  much  more 
accurate  error  assessment  for  the  sinusoidal  functions.  When  large  errors  were  reported,  each 
interpolated  function  was  visually  examined  and  compared  with  the  original,  linear  interpolated, 
and  analytical  functions. 

Each  of  the  analytical  test  categories  was  examined  visually  through  the  use  of  the  commercial 
graphics  routines  by  overlaying  the  original  and  interpolated  functions.  Carpet  plots  of  the  errors 
between  the  original  and  interpolated  functions  exhibit  the  presence  of  numerically-induced 
oscillations  which,  in  geometry  updates  or  loads  computations,  can  result  in  non-physical  behavior 
in  CFD  or  CSD  simulations.  In  addition,  a  quantitative  analysis  was  computed  which  tabulated  the 
errors  from  a  statistical  viewpoint  through  maximum  errors  (and  locations),  averages  and  standard 
deviations.  These  quantitative  results  were  computed  using  the  following  equations: 

Maximum  Error  (Absolute) : 

Maximum  of  (punctioninterpolated  “  Fu^ctioncomputed)  for  points 


Maximum  Error  (Percent) : 

Average  Error  (Absolute) : 
Average  Error  (Percent) : 


Maximum  Error 


•xlOO. 


(Maximum  Computed  Function  Value) 

X  (Function  jjj(grpoia(e(l  —  Function^Qinpyted  j 
(Number  of  Points  -  1) 


Average  Error 


(Maximum  Computed  Function  Value) 


■xlOO. 


Standard  Deviation : 


X(Error  -  ErrorAverage)^ 
^  (Number  of  Points  -  1) 


Analytical  Function  Computed  on  Fine  Grid 

Function  Computed  on  Input  Grid  and 
Interpolated  to  Fine  Grid 


Figure  10-3.  Comparison  of  the  Differences  in  the  Function  Values  for  a  Fine  Grid  Using 
Analytical  and  Interpolated  (from  Coarse  Grid)  Methods  to  Compute  the  Function  Values 
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11.  RESULTS  OF  THE  ANALYTICAL  TEST  CASES 


The  analytical  test  cases  discussed  in  Chapter  10  were  examined,  using  each  of  the  methods  of 
Chapters  4-9.  Results  from  these  test  cases  are  discussed  in  detail  in  the  following  sections.  Each 
section  is  self-contained,  including  all  its  associated  tables  and  figures  along  with  die  text  Plots  are 
presented  using  FAST  [7]  and  TECPLOT  [8]. 

Statistical  summary  plots  of  the  test  cases  are  included  in  the  following  subsections.  These 
summary  plots  provide  visual  correlation  of  the  results  for  each  subsection.  The  interpolation 
errors  are  plotted  as  relative  errors.  That  is  the  difference  in  the  original  and  interpolated  function 
values  are  divided  by  the  maximum  value  of  the  original  function,  and  multiplied  by  100  to  form  a 
percentage  error.  These  numbers  correlate  with  the  Percentage  Errors  of  the  tabulated  data 
included  in  this  chapter.  Absolute  errors  are  also  listed  in  the  tabular  data,  but  are  not  plotted. 

The  results  for  each  method  are  discussed  in  several  subsections  which  address  specific  aspects  of 
the  interpolation  results.  These  subsections  and  their  topics  include : 

Overall  Accuracy  -  Statistical  performance  of  the  method  for  all  test  cases  is  discussed. 

Grid  Spacing  Sensitivity  -  For  all  of  the  test  cases  reviewed  for  this  topic,  a  function  was  defined 
on  a  regular,  uniform  grid.  The  function  was  then  interpolated  onto  grids  which  were  regular  or 
included  clustering  in  different  directions.  The  interpolations  for  tiie  different  grids  are  then 
compared.  These  cases  are  important  since  they  are  analogous  to  the  transformation  of  mode 
shapes  from  a  coarse  structural  grid  to  a  finely  clustered  aerodynamic  (CFD)  grid. 

Directional  Bias  -  The  test  cases  reviewed  in  this  subsection  ensure  that  the  interpolation  method 
can  handle  complex  functions  which  vaty  in  both  surface  directions  (hereafter  referred  to  as  the 
streamwise  and  spanwise  directions).  Directional  bias  is  indicated  if  the  method  does  not  provide 
identical  interpolations  when  the  grids  and  functions  are  rotated  ninety  degrees  to  lie  in  the  other 
coordinate  direction. 

Magnitude/Amplitude  Sensitivity  -  Test  cases  for  functions  with  different  amplitudes  and 
magnitudes  are  compared  to  determine  if  the  method  is  sensitive  to  overall  function  levels.  This  is 
important  since  a  wide  variety  of  parameters  will  be  transformed  using  these  methods.  Sensitivity 
to  magnitude  indicates  the  need  for  parameterization  of  the  function.  For  comparison,  plots  are 
included  where  the  order  of  the  magnitude  or  amplitude  is  the  abscissa.  For  example,  functions 
with  magnitudes  of  1, 2,  or  5  are  all  plotted  as  an  order  of  magnitude  of  1.  Similarly,  0.01,  0.02 
and  0.05  are  plotted  as  an  order  of  magnitude  of  0.01.  By  plotting  the  order  of  the  magnitudes, 
rather  than  the  actual  magnitudes,  consistent  comparisons  can  be  drawn. 

Frequency  Sensitivity  -  Test  cases  are  examined  with  functions  that  increase  in  frequency  (number 
of  cycles  increases  over  the  surface).  These  higher  order  oscillation  results  illustrate  the  impact  of 
interpolating  higher  order  mode  shapes  as  well  as  pressure  distributions. 

Extrapolation  -  Test  set  3  is  designed  to  examine  the  algorithm’s  ability  to  extrapolate  data. 
Extrapolation  is  very  important  since  it  is  unlikely  that  the  structural  and  aerodynamic  grids  will  be 
coincident.  Extrapolation  may  be  required  in  all  three  Cartesian  directions,  which  means  that 
thickness  may  also  be  required  to  be  extrapolated.  In  these  tests,  thickness  corresponds  to  the  z 
(normal)  direction.  The  extrapolation  function  test  cases  3A  -  3H1  correspond  with  the  test  cases 
1 A  -  IHl  and  4A  -  4H1  (the  normal  direction  is  computed  differently  in  test  case  4,  but  does  lead 
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to  identical  functions).  The  difference  between  test  sets  1  (and  4)  and  3  is  that  the  starting  grids 
(known  functions)  for  test  set  3  do  not  extend  to  leading  and  trailing  edges  of  the  unknown 
function  grids  in  either  direction.  This  corresponds  to  a  structural  grid  which  does  not  have  points 
at  the  leading  and  trailing  edges,  the  root  and  tip  of  an  aerodynamic  wing  grid. 

Diminishing  Variation  -  The  interpolation  of  the  grid  should  be  consistent  no  matter  how  fine  the 
grid  becomes.  Thus,  a  series  of  three  grids  with  increasing  fineness  was  examined.  The  original 
grid  was  taken  from  test  set  1  (A  -  H,  A1  -  HI,  and  A2  -  H2).  The  two  finer  grids  were 
computed  by  doubling  the  numter  of  points  in  each  direction.  If  the  errors  change,  this  is 
indicative  that  oscillations  are  being  introduced  into  the  interpolation  as  the  grid  becomes  finer. 

Sensitivity  to  Three-Dimensional  Surfaces  (Plates  vs.  Shells)  -  The  various  test  sets  include  flat 
surfaces  (plates)  and  surfaces  which  vary  in  the  normal  direction  (shells).  This  subsection 
indicates  if  the  method,  as  implemented,  has  sensitivities  associated  with  the  interpolation. 

Algorithm  CPU  Memory  and  Time  Requirements  -  An  algorithm  to  compute  the  required  CPU 
memory  for  a  given  set  of  parameters  is  given.  The  time  requirements  based  on  the  actual  runs  are 
provided  as  a  statistic. 
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11.1  Innnite-Plate  Spline  Method  (IPS) 


The  IPS  method  is  the  method  most  commonly  used  in  the  interpolation  of  data  from  structural  and 
aerodynamic  grids  (See  Chapter  3).  This  methodology  is  of  particular  interest  since  it  is  applied 
for  so  many  different  applications. 

The  implementation  of  IPS  is  described  in  Chapter  4.  Shan  [6]  discovered  that  the  method 
performs  best  with  Singular  Value  Decomposition  (SVD).  This  is  the  implementation  applied 
during  this  study.  Using  SVD,  it  is  possible  for  the  user  to  modify  the  zero  threshold;  i.e.,  any 
values  below  the  zero  threshold  are  considered  to  be  zero  during  the  matrix  decomposition. 
Unfortunately,  this  adds  an  additional  input  for  the  user  to  understand  and  apply.  Indeed,  Shan 
discovered  that  without  a  judicious  selection  of  the  zero  threshold,  the  results  for  a  single  problem 
can  vary  dramatically.  Thus,  the  question  is  raised  about  the  validity  of  the  SVD  scheme.  Without 
applying  SVD  -  and  its  ability  to  change  the  thresholds  -  the  matrix  can  be  ill-conditioned  or 
singular  in  many  instances  where  other  methodologies  (discussed  later  in  this  chapter)  have  no 
problem.  This  is  particularly  prevalent  for  the  higher  frequencies  of  the  sinusoidal  inputs.  In  this 
research,  IPS  was  first  run  witii  a  threshold  of  zero  (all  points  used  in  the  matrix  solution). 

Overall  Accuracy  -  Statistical  summaries  of  all  test  cases  run  with  PS  are  presented  in  Tables  11.1 
to  11.5.  The  overall  accuracy  of  IPS  is  adequate,  but  not  consistent  across  the  range  of  test  case 
functions.  This  is  demonstrated  in  Figures  11-1  and  11-2  where  the  relative  error  is  plotted  for 
each  category  of  function.  It  is  easily  observed  from  Figures  11-1  and  11-2  that  for  constants  and 
some  linear  and  sinusoidal  functions  the  method  has  excellent  performance.  For  many  of  the 
functions,  however,  IPS  produces  in  large  errors,  as  seen  by  the  statistical  summaries  in  Tables 
11.1-11.5.  This  is  particularly  true  of  sinusoidal  functions.  For  most  of  the  runs  there  is  not  a 
large  difference  between  the  maximum  and  average  errors.  This  indicates  that  the  method  is  not 
sensitive  to  any  particular  location. 

Grid  Spacing  Sen.sitivity  -  Figures  11-1  and  11-2  indicate  that  IPS  is  sensitive  to  grid  spacing. 
The  sets  of  runs  marked  “A”  on  the  figures  indicate  interpolation  to  an  identical  grid.  For  the  sets 
of  data  marked  with  “B”  the  function  was  interpolated  to  finer,  clustered  grids.  TTie  error  increased 
between  8  to  12  orders  of  magnitude  between  these  two  types  of  grids.  The  highest  errors 
constituted  a  range  of  4%  to  over  100%  (based  on  the  function  magnitude). 

Additionally,  the  interpolated  data  is  shown  to  be  oscillatory  in  nature.  These  oscillations  are 
depicted  in  Figure  1 1-3,  a  typical  interpolation  error  plot  by  IPS.  The  impact  of  these  oscillations 
can  be  felt  for  interpolation  of  grid  deflections  from  the  structural  to  the  aerodynamic  grid. 
Oscillations  in  the  updated  surface  grid  of  a  wing  can  result  in  non-physical  pressure  distributions, 
and  can  cause  flow  separation  bubbles  or  transition  to  turbulent  flow  where  laminar  flow  actually 
occurs.  These  oscillations  can  be  smoothed  out  using  several  different  smoothing  algorithms,  as 
described  by  Shan  [6].  These  smoothing  algorithms  act  as  a  low-pass  filter,  removing  the  higher 
oscillations  from  the  interpolation.  However,  these  smoothing  tdgorithms  have  been  shown  to 
detrimentally  impact  the  accuracy  of  the  interpolation.  Since  the  use  of  smoothing  algorithms  is 
very  user-intensive  and  must  be  confirmed  graphically  for  each  interpolated  curve,  it  is  not 
recommended  for  this  application. 

Directional  Bias  -  Figure  11-1  includes  the  interpolations  of  functions  for  both  the  stream  wise 
(testla  -  11)  and  spanwise  (testla2  -  12)  directions.  These  interpolations  are  virtually  identical, 
indicating  IPS  has  little  or  no  sensitivity  to  the  direction  of  the  function. 
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Magnitude/Amplitude  Sensitivity  -  The  IPS  magnitude  study  results  are  plotted  in  Figure  11-4  for 
test  set  1.  For  each  of  the  different  combinations  of  grids  and  functions,  the  relative  errors  of  the 
interpolation  are  constant  as  the  function  amplitudes  and/or  magnitudes  change.  This  trend  is 
consistent  for  function  type,  plates,  shells,  direction  of  the  function  and  grid  (test  sets  1  and  2). 
Thus,  IPS  is  not  sensitive  to  magnitude  changes,  as  expected  since  it  is  a  linear  method. 

Sensitivity  to  Frequency  (Higher  Oscillations^  -  IPS  is  very  sensitive  to  the  frequency  of  the 
function.  The  sinusoidal  functions  shown  in  Figures  11-1  and  11-2  are  for  one  cycle  over  the 
surface,  as  illustrated  in  Figure  11-3.  When  the  frequency  of  the  sinusoidal  function  is  increased 
to  three,  five,  and  seven  cycles,  the  interpolation  errors  increase  rapidly,  as  seen  in  Figures  1 1-5 
for  test  set  1.  For  these  higher  oscillations,  the  number  of  points  in  the  direction  of  the  function 
was  proportionally  increased  so  that  the  interpolating  algoritlun  was  provided  an  adequate  number 
of  input  points  from  which  to  perform  the  interpolations.  A  variation  of  8  to  13  orders  of 
magnitude  is  seen  when  the  function  increases  from  one  to  three  cycles.  The  large  variation  in 
error  is  not  seen  during  the  increase  from  three  to  five  cycles.  Note,  however,  that  by  the  three- 
cycle  function,  the  magnitude  of  the  relative  error  (50  —  100%)  has  reached  the  same  order  of 
magnitude  as  the  amplitude  of  the  function.  IPS  interpolation  failed  for  sinusoidal  functions 
greater  than  five  cycles. 

The  reason  for  the  large  jump  in  error  between  one  and  five  cycles  is  seen  in  Figure  1 1-6.  Here, 
the  interpolation  result  for  a  three-cycle  sinusoid  is  plotted.  Notice  that  while  the  function 
amplitude  is  captured  along  the  surface  edges,  the  amplitude  prediction  has  significantly  degraded 
along  the  interior  of  the  grid.  The  oscillations  discussed  earlier,  and  ploted  for  a  one-cycle 
sinusoid  oscillation  in  Figure  11-3  are  now  dramatically  apparent.  These  oscillations  occur  in  the 
direction  which  is  not  rapidly  varying,  indicating  a  cross-coupling  with  the  highest  function 
frequency. 

Extrapolation  -  The  maximum  errors  for  test  sets  1  and  3  are  plotted  in  Figure  1 1-7  to  illustrate  the 
impact  of  extrapolation  versus  interpolation.  It  is  apparent  from  this  figure  that  IPS  is  not  as 
accurate  for  extrapolations  since  the  relative  errors  increase  by  approximately  an  order  of 
magnitude  or  more  for  functions  which  include  a  sinusoidal  component.  The  cases  which  are 
comprised  of  only  constants  and  linearly  varying  components  do  not,  for  most  cases,  have  any 
problems  in  extrapolation.  However,  it  must  be  realized  that  most  pressures  and  mode  shapes  will 
rapidly  vary  in  the  regions  which  are  most  likely  to  require  extrapolation  (leading  edge,  trailing 
edge,  root,  tip,  etc.).  Thus  the  inability  of  IPS  to  adequately  resolve  these  data  is  important  The 
percentage  of  the  relative  errors  are  now  between  10%  and  100%  for  extrapolation.  The  location 
of  the  maximum  error  has  moved,  in  most  instances,  to  the  region  of  extrapolation  (refer  to  Table 
1 1.3).  The  presence  of  the  large  error  at  the  edges  of  the  plate  where  extrapolation  is  occurring  has 
been  reported  by  several  authors  [9,  10,  6].  These  errors  are  characterized  as  the  “potato  chip” 
effect  because  of  the  large  curvature  which  is  introduced  by  IPS.  An  example  of  this  error  is 
shown  in  Figure  11-8. 

Diminishing  Variation  -  Figure  11-9,  Table  11.1  and  Table  11.4  show  that  the  interpolation  error 
either  decreases  or  does  not  vary  with  increasing  grid  fineness,  indicating  that  the  interpolation 
scheme  is  consistent  for  each  function.  If  the  errors  increase,  tihis  indicates  that  oscillations  are 
being  introduced  into  the  interpolation  as  the  grid  becomes  finer.  The  typical  trend  for  IPS  is  a 
drop  in  interpolation  error  from  the  first  grid  doubling,  and  minimal  change  in  interpolation  error 
for  increases  in  grid  fineness  thereafter. 

Sensitivity  to  Three-Dimensional  Surfaces  (Plates  V s.  Shells)  —  From  Figures  11-1  to  11-9,  the 
only  sensitivity  that  IPS  has  when  a  plate  is  extended  to  a  shell  is  for  the  constant  and  linear 
functions.  (The  two-dimensional  equations  described  in  Chapter  4  have  been  expanded  to 
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encompass  three-dimensional  surfaces  using  arclengths.)  The  sensitivity  to  sinusoidal  functions  is 
minimi. 


Algorithm  CPU  Memory  and  Time  Requirements  -  The  average  CPU  time  requirement  is 
approximately  10  -  12  seconds  (refer  to  the  last  column  of  Tables  11.1  through  11.4,  with  the 
exception  of  test  cases  that  have  very  large  errors,  indicative  of  ill-conditioned  matrices.  These  runs 
require  an  average  of  14(K)  to  1700  seconds.  Matrices  that  never  converge  can  require  over  3600 
seconds  before  Aey  stop  with  an  error  flag. 

The  algorithm  CPU  memory  requirement  can  be  computed  using  the  following  algorithm: 

CPU  SIZE  (in  MegaBytes)  =  0.3034  +  2.1902  xlO'^KGS  +  1.6xl0'^KGS^ 

+  5.6988  xlO'^UKS  -  7.9967  x  10’^  ^UKS^ 

where  KGS  is  the  total  number  of  points  for  the  grid  where  the  function  is  known  and  UKS  is  the 
total  number  of  mesh  points  for  the  grid  to  which  the  function  is  to  be  interpolated.  For  example, 
if  mode  shapes  are  to  be  interpolated  from  a  CSD  mesh  to  a  CFD  mesh,  KGS  is  the  number  of 
mesh  points  for  the  CSD  mesh,  and  UKS  is  the  number  of  surface  CFD  grid  points.  This  function 
yields  values  within  1%  of  the  actual  CPU  size  during  testing.  Figure  11-10  indicates  that  the 
predominant  memory  requirement  is  directly  related  to  the  number  of  mesh  points  for  the  known 
function  grid.  This  is  as  expected  since  an  increase  in  these  mesh  points  results  in  a  larger  matrix 
to  solve. 

Single  Precision  -  The  obvious  impact  of  reducing  the  precision  of  the  method  from  double  to 
single  precision  is  the  reduction  of  the  CPU  memory  requirements.  For  IPS,  this  precision 
reduction  results  in  a  savings  of  approximately  25  -  30%.  The  CPU  time  increased  by 
approximately  a  factor  of  2  because  of  the  additional  time  required  to  resolve  the  matrices.  For 
most  instances,  the  maximum  error  increases,  but  not  to  a  significant  degree.  However,  very 
accurate  interpolations  with  errors  of  the  order  of  10'^^  are  no  longer  possible.  The  maximum 
accuracy  (for  both  the  maximum  error  and  average  error)  achieved  by  the  single  precision  method 
is  lO  '^.  However,  for  errors  above  1%  of  the  maximum  magnitude  or  amplitude,  little  difference  is 
seen  in  the  interpolation  accuracy,  as  seen  in  Table  11-5.  Thus,  there  appears  to  be  no  reason  to 
use  double  precision  for  IPS. 
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□  Maximum  Errors  A  =  Regular  Grid 
O  Average  Errors  b  =  Clustered  Grid 


Test  Set  1 

Figure  11-1.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using  the 

Infinite-Plate  Spline  Method 


Test  Set  1 

Figure  1 1-2.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Shells  Using  the 

Infinite-Plate  Spline  Method 
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a)  Original  Function 


b)  Interpolated  Function 


c)  Orthogonal  View  of  the  Error 


d)  Error  Contours 

Figure  1 1-3.  Example  of  Oscillations  Induced  by  the  Infinite-Plate  Spline  Method  (Test  1)  for  a 
One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 
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A=  Constant  &  Linear,  Regular  Grid 
B=  1  Cycle  Sinusoid,  Regular  Grid 
C=  Constant  &  Linear,  Clustered  Grids 
D=  1  Cycle  Sinusoid,  Clustered  Grids 


Magnitude/Amplitude 

Figure  11-4.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 
Function  Using  the  Infinite-Plate  Spline  Method 


□  Maximum  Error 
O  Average  Error 


□  Maximum  Error 
O  Average  Error 


A  =  Plate/Shell,  Amplitude=1.0 
B  =  Plate/Shell,  Amplitude=.01 
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Figure  11-5.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal  Cycles 

Using  the  Infinite-Plate  Spline  Method 
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Figure  1 1-7.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3)  Using 

the  Infinite-Plate  Spline  Method 


Correct 
Extrapolated 
Position 
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Interpolated 
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“Potato  Chip' 
Effect ^ 


Figure  11-8.  An  illustration  of  the  “potato  chip”  extrapolation  effect  encountered  in  the  Infinite- 

Plate  Spline  MeAod 
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Test  Set  4 

Figure  1 1-9.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  1  and  4)  Using  the  Infinite- 

Plate  Spline  Method 


Figure  11-10.  CPU  Memory  Requirements  for  the  Infinite-Plate  Spline  Method  as 

Implemented  with  SVD  and  Threshold  Modification 
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Test  Case 


Table  11.1  Statistical  Summ 


Maximum  Error 


Percentage 


2.28E-05 
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testi  kk2 


testi  nn2 


test1oo2 


2 


testi  G2 
testi  H2 


I  Location 


J  Location 


8.53E-02 


7.21E-07 


1.05E-06 

8.53E-02 


6.52E-07 


1.17E-06I 


4.069 


1.39E-05 


2.09E-05 

4.112 


1.26E-05 


2.35E-05 


testi  112 

8.36E-02 

testi  mm2 

1.99E-13 

6.60E-08 


1.045 


1.927 


1.05E-02 


5.11E-14 


2.42E-13 


3.02E-14 


3.11E-14 


9.07E-07 


8.53E-02 


3.20E-14 


1.02E-12 


1.23E-11 


testi  ss2 

1.05E-02 

test1tt2 

* 

♦ 

testi  uu2 

* 

♦ 

testi  A 

3.91E-14 

testIC 

1.48E-06 

testi  D 

1.47E-06 

testi  E 

8.36E-02 

testi  F 

2.23E-02 

testi  G 

1.07E-06 

4.14E-02 


testU 

*  * 

testi  A1 

8.33E-07 

testi  B1 

8.29E-07 

testi  Cl 

1.71E-06 

testi  D1 

1.77E-06 

testi  El 

8.36E-02 

testi  FI 

2.23E-02 

testiGl 

1.21E-06 

testi  H1 

2.23E-02 

testi  11 

4.14E-02 

test1J2 

*  * 

testi  A2 

1.10E-06 

testi  B2 

1.10E-06 

testi  C2 

5.20E-06 

testi  D2 

1.52E-06 

testi  E2 

8.36E-02 

testi  F2 

2.23E-02 

1.48E-05 


1.47E-05 


0.3181 


5.26E-05 


0.7382 


1.037 


1.02E>06 

2.23E-02 


0.3181 


5.55E-05 


0.7158 


1.016 


1.10E-05 

1.54E-05 

5.10E-05 

1.52E-05 

1.172 

0.3116 

4.22E-05' 

0.6631 


Averaoe  Error 


Absolute  I  Percentage 


3.32E-07  6.64E-0€ 


2.31E-02 


Standard 


Deviation 


CPU  Time 
(Seconds) 


1.104 

5.92E-02 

11.91238 

4.31  E-06 

1.87E-03 

11.81469 

4.43E-06 

5.93E-05 

11.77773 

testimm  4.70E-06 

9.37E-06 

testinn  8.29E-07 

7.06E-05 

11.70518 


11.71156 


1  9 

0.6515 

30.28 

0.6385 

1432.24756 

1  9 

3.23E-03 

1.707 

4.02E-03 

1430.52588 

1  9 

6.52E-03 

3.356 

6.38E-03 

1434.94507 

2.01E-05 

27 

6 

4.273 

50 

1  1 

1.84E-14  9.32E-13  3.77E-14  11.48219 


1.23E-14I  2.46E-13I  5.e8E-15l  12.24953 


7 _ 

2 


1.86E-15 

1.82E-13 

3.99E-04 

10.64015 

2.38E-13  4.01  E-05^ _ 10.59155 


0.5425  1447.79504 


3.52E-07 

3.52  E-06 

6.15E-07 

12.11227 

2.40E-02 

0.3438 

3.95E-02 

11.87871 

2.37E-06 


2.51  E>06 
4.07E-06 


2.38E-07 


1.77E-07 

4.07E-07 


13.105 


11.855 

12.97422 


I  3.74E-07 

3.74E-06 

3.74E-07 

12.60062 

0.3437 

2.40E-02 

12.33062 

7.47E-03 

0.1067 

7.S1E-03 

12.37172 

3.09E-07 

1.41  E-05 

2.38E-04 

11.95195 

7.47E-03 

0.2402 

7.47E-03 

11.83327 

I  5.22E-03 

0.128 

5.22E-03I  1695.956181 

3.82E-07 
2.91E-07 
6.21  E»07 
3.90E-07 
2.40E-02 
7.47E-03 
3.11E-07 
7.47E-03 


3.82E-06 

4.07E-06 

6.09E-06 

3.90E-06 

0.3365 

0.1046 

1.28E>05~ 

0.2225 


7.51E>04 

7.55E-05 

2.46E-06 

3.98E>07 

2.40E»02 

7.51E>03 

2.38E-04 

7.47E-03 


10.83333 

10.77463 

11.69545 

11.59158 

11.68784 

11.48354 

11.57962 

11.87543 
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Table  1 1.2  Statistical  Summary  of  Test  Set  2  using  Infinite-Plate  Spline 


Maximum  Error  I 

Averaqe  Error 

Standard 

HS2fi£u9lll| 

Absolute 

Percentage 

1  Location 

J  Location 

Absolute  1 

mssmmsm 

Deviation 

test2A 

5.44E-07 

2.52E-05 

2 

2 

1.83E-07 

1.08 

test2B 

4.00E-07 

2.00E-05 

1  0 

6 

1 .4275 

tesl2C 

4.00E-07 

2.00E-05 

5 

1  0 

2.00E-07 

1.00E-05 

3.19E-07 

1.57125 

test2D 

8.00E-07 

1.33E-05 

3 

5 

2.45E-07 

4.09  E-06 

4.37E-07 

1.6275 

test2E 

8 

7 

0.1517 

7.704 

0.2802 

5.11E-13 

28 

50 

3.68E-15 

1.84E-13 

5.60E>03 

0.54938 

1  4 

3 

2.64E-07 

1.32E-05 

1.12E-04 

0.88594 

test2H 

6.24E-07 

2.62E-05 

3 

43 

2.64E-07 

1.32E<05 

2.28E-06 

1.04266 

test2l 

1.51E-05 

46 

1  9 

2.52E-07 

4.20E-06 

4.22E-07 

1.19312 

test2J 

test2K 

♦  *  ♦ 

test2L 

1.30E-09 

1.30E-05 

17 

21 

2.47E'10 

2.47E-06 

8.46E-09 

1.23984 

17 

32 

2.34E-10 

2.34E-06 

4.18E-10 

1.30969 

5.44E-07 

2.52E-05 

2 

2 

1.83E-07 

8.49E-06 

1.84E-07 

1.08 

test2B1 

5.49E-07 

7 

8 

1.93E-07 

9.64E-06 

1.95E-07 

1.4275 

test2C1 

5.49E-07 

2.75E-05 

8 

7 

1.93E-07 

9.64E-06 

1.95E-07 

1.55S 

test2Dl 

9.75E-07 

1.62E-05 

3 

3 

2.32E-07 

3.86E-06 

2.34E-07 

1.61 

26.8 

8 

7 

0.1517 

7.553 

0.1525 

1.72 

10 

44 

2.36E-07 

1.09E-05 

3.05E-03 

0.5325 

23 

1  6 

1.20E-05 

6.10E-05 

0.89094 

3.02E-05 

1  6 

23 

2.39E-07 

1.20E-05 

1.24E-06 

1.04953 

HHTIiTsTCHi 

1.70E-05 

48 

1  8 

2.52E-07 

4.19E-06 

2.53E-07 

1.16297 

test2J1 

«r  *  « 

test2K1 

*  *  « 

mmam 

test2L1 

9.74E-08 

5.30E-05 

25 

28 

■RE39I 

6.16E-07 

5.18E-09 

1.29031 

test2Ml 

9.73E-08 

5.30E-05 

28 

26 

1.15E-09 

6.28E-07 

1 .16E-09 

1.29367 

1est2Nl 

*  «  « 
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testSF 


testSG 


testSH 


testai 


testaJ 


test3A1 


test3Bl 


test3E1 

0.93251 

test3F1 

0.3119 

test3l1 


test3J1 

test3A2 


test3B2 


tesl3C2 


tesl3E2 


test3F2 


test3H2 


test3l2 


test3G4 


test3H4 


test3l4 


test3J4 


9,90E-07 


0.3119 


1.25E-06 


8.949 


2.50E-05 


26.7 


1.98E-05 


8.949 


2.50E-05 


test3B3 

4.00E-07 

2.00E-05 

test3C3 

4.00E-07 

2.00E-05 

lest3D3 

8.00E-07 

1.33E-05 

test3E3 

0.7078 

35.94 

test3F3 

1.29E-14 

6.44E-13 

test3G3 

5.24E-07 

test3H3 

5.23E-07 

2.62E-05 

test3l3 

9.01  E-07 

I.SOE-OS 

test3J3 

*  «  « 

test3A4 

5.44E-07 

2.52E-05 

2.75E-05 

1  test3D4 

i  9.75E-07 

1  1.63E-05I 

0.7078 


6.06E-07 


6.04E-07 


3.03E-05 


3.02E-05 


3.06E-07 


3.63E-02 


3.42E-07 


2.94E>07l 


0.2998 


8.41E-02 


3.23E-07 


8.41  E-02 


6.11  E-06 


1.041 


6.85E<06 


5.88E-06 


8.582 


2.404 


2.75E-05 


5.241 


8.45E-03 


0.3146 


9.95E-03 


3.15E-04 


0.3986 


0.3673 


1.16E-02 


8.41E-02 


5  2.00E-07  1.00E-05  2.00E-03 


10.79656 


11.49265 


Table  11.3  Statistical  Summ 


_ Maximum  Error 


Absolute 


of  Test  Set  3  using  Infinite-Plate  Splines. 


1  Location  | 

1  J  Location  { 

1  Absolute 

Averaqe  Error 


9.90E-07 


0.3119 


3.62E-02 


3.17E-07 


2.97E-07 


1.038 


6.35E-06 


5.93E-06 


1.09E-04 

11.43976 

0.666 

11.36961 

3.10E-07 

3.04E-05 

6.29E-03 

11.24863 

8.41E-02 

5.678 

0.1977 

11.30336 

10.00286 


9.98444 


10.9368 


10.87434 


10.87207 


10.79977 


10.77734 


10.75516 


Table  1 1.4  Statistical  Summary  of  Test  Set  4  using  Infinite-Plate  Splines. 


Test  Case 

Maximum  Error  I 

Averaqe  Error 

Standard 

CPU  Time 

Absolute  I 

1  Location 

J  Location  | 

Absolute  1  Percentage 

Deviation 

(Seconds) 

test4A2 

1.14E-06 

22 

8.55E-06 

6.49E-07 

0.51 

31 

8.76E-06 

7.01E-07 

2.935 

36 

0.6902 

3.90E-02 

0.39781 

1.76 

73 

0.6986 

2.51094 

129 

9.20E-06 

3.10E-04 

8,36922 

317 

42 

5.09E-07 

1.02E-05 

1.35E-06 

38.31399 

test4D2 

1.32E-06 

2.64E-05 

153 

6 

4.70E-07 

9.39E-06 

6.31E-07 

7.85512 

test4D3 

1.40E-06 

2.79E-05 

70 

4.72E-07 

9.43E-06 

6.30E-07 

39.50633 

tA<5l4P? 

8.80E-02 

2.529 

188 

0.7331 

5.05E-02 

7.75046 

test4E3 

8.81  E-02 

2.53 

376 

38 

2.56E-02 

0.7351 

5.07E-02 

37.99612 

test4F2 

5.91 E-02 

1.698 

TTo 

46 

1.19E-02 

0.3429 

2.37E-02 

7.51468 

1.755 

220 

69 

1.21  E-02 

0.3476 

2.39E-02 

37.6907 

test4G2 

1.03E-06 

1.01E-04 

160 

48 

4.73E-07 

4.64E-05 

1.89E-04 

7.34967 

test4G3 

1.04E-06 

1.02E-04 

237 

1  3 

4.84E-07 

4.75E-05 

1 .03E-06 

37.58569 

test4H2 

5.91  E-02 

3.964 

110 

46 

0.8003 

2.37E-02 

7.36456 

test4H3 

6.10E-02 

4.104 

221 

69 

37.81006 

3.797 

20 

20 

0-57 

3.899 

40 

41 

4.91 E-02 

0.9828 

2.91188 

0.1914 

5.508 

21 

21 

5.31 E-02 

1.528 

5.48E-02 

0.37625 

0.1958 

5.628 

40 

41 

S.45E-02 

1.566 

1  test4C12 

0.183 

3.66 

40 

0.2174 

2.41E-02 

0.1893 

3.786 

351 

81 

0.2159 

2.38E-02 

38.35422 

3.8 

174 

41 

1.14E-02 

0.2288 

2.72E-02 

7.9252 

3.84 

350 

81 

1.09E-02 

0.2171 

2.41E-02 

37.92737 

5.455 

174 

40 

0.8111 

5.59 

349 

80 

0.8141 

■gggggi 

5.579 

174 

43 

1.71  E-02 

0.4918 

3.19E-02 

7.54669 

5.636 

81 

0.4984 

3.21E-02 

37.98264 

15.63 

175 

41 

0.7962 

2.18E-02 

7.84113 

15.24 

0.8845 

37.8858 

12.31 

174 

43 

1.71  E-02 

1.085 

7.4541 

12.46 

349 

81 

1.73E-02 

1.102 

3.21  E-02 

37.9292 

5.696 

20 

21 

7.96E-02 

1.592 

7.46E-02 

0.5875 

5.849 

41 

41 

1.487 

7.00E-02 

2.96625 

8.24 

20 

21 

2.167 

I  test4B23 

0.2933 

8.43 

41 

41 

7.71  E-02 

2.215 

3.66 

176 

40 

1.09E-02 

0.2174 

2.41E-02 

0.1893 

3.786 

351 

81 

1.08E-02 

0.2159 

2.38E-02 

38.24308 

IHIHBIRE! 

3.8 

174 

41 

1.14E-02 

0.2288 

2.72E-02 

7.78474 

I  test4D23 

0.192 

3.84 

350 

81 

1.09E-02 

0.2171 

2.41E-02 

5.455 

174 

2.82E-02 

0.8111 

5.14E-02 

7.68256 

5,59 

349 

80 

2.84E-02 

0.8141 

5.17E-02 

38.00839 

5.579 

174 

43 

3.19E-02 

. . 

I  test4F23 

0.1959 

5.636 

349 

81 

1.73E-02 

0.4984 

3.21E-02 

37.55292 

15.63 

175 

9.60E-03 

0.7962 

2.18E-02 

7.38202 

15.24 

344 

81 

0.8845 

test4H22 

0.1943 

12.31 

174 

43 

1.71  E-02 

1.085 

test4H23 

0.1959 

12.46 

349 

81 

1.73E-02 

1.102 

IIHHWFWSViff 
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Table  11.5  Statistical 


Absolute 


1.29E-05 


test1  h 


testli 

testlj 

testik 


testli 


testi  m 
test1  n 


testi  o 


testi 


testi 


test1a1 


testi  a2 


testi  b2 


testi  c2 


testi  d2 


test1e2 


testi  f2 


testi  g2 
testi  h2 


2 


2 


testi  k2 


testi  12 


testi  m2 


1  Percenta 

ge  1 

1  Location  | 

[  J  Location 

1  Absolute  1 

1  Percenter 

2.58E-ML 


testi  b 

1.76E-05 

3.53E-04 

2 

testi  c 

2.71E-04 

1.38E-02 

3 

1.05E-05 


2.00E-05 


8.53E-02 

1.14E-05 


1.76E-05 


8.54E>02 

1.05E-05’' 

1.86E-05 


8.38E-02 


1.30E-04 

3.82E-06 


5.40E-08 


1.05 


Summary  of  Test  Set  1  (Partial)  using  Single  Precision  Infinite-Plate 
Splines. 


Maximum  Error 


Standard 

Deviation 


7.92E-06 


1.07E-05 


4.44E-05 


1.13E-05 


2.28E-05 


4.49E-02 

1.42E-03 


4.54E-05 


3.03E-02 

9.59E-04 


3.34E-05 


3.96E-03 

3.98E-04 


4.00E-05 


0.5432 


2.10E-04 


4.01E-04 


4.277 

2.29E-04 


3.53E-04 


4.281 

2.10E-04 

3.72E-04 


4.22 


2.59E-04 

3.74E-04 


2.70E-04 


52.6 


5.51E-06 


1.12E-05 


2.31E-02 

3.50E-06 


3.00E-06 


2.32E-02 

3.87E-06 

6.55E-06'' 


1.10E-04 


2.23E-04I 


1.157 

7.00E-05’ 


5.99E-05 


1.161 

7.75E-05 

1.31E-04I 


1.50E-04 
1.91E-04 
0.8491  ' 


1.17E-06 


1.57E>07 

1.95E-07 

2.87E-04 


testigl 

1.34E-07 

2.68E-04 

testi  hi 

1.57E-07 

3.13E-04 

testi  i1 

8.53E-04 

4.277 

5.38E-08 

1.08E-04 

9.07E-06 

2.72E-08 

5.45E-05 

2.89E-07 

2.32E-04 

1.16 

3.03E-04 

1.34E-07 


1.64E-07 

8.37E-04 


1.29E-05 


9.59E-06I 


1.72E-05 


9.72E-06 


2.22E-02 


1.14E-05 

1.01E-05‘ 


2.22E-02 


1.05E-05 


2.68E-04 


3.28E-04 

4.216 


2.58E-04I 


1.92E-04T 


8.72E-04 


1.95E-04 


1.1111 


2.29E-04 

2.01E-04 


1.112 


2.10E-04 


2.85E-06 

5.70E-05 

5.37E-06 

2.68E-06 

1.36E-04 

5.66E-06 

5.51E-06 

1.10E-04 

1.12E-05 

3.60E-05 

3.36E-06 

■EiinSB 

0.3607 

3.50E-06 

7.00E-05 

2.50E-04 

5.40E-06 

1.08E-04' 

1.35E-05 

7,22E-03 

0.361 

1.53E-02 

3.87E-06 

7.75E-05 

4.84E-04 

3.12E-06 

6.24E-05 

1.66E-05 

7.47E-03 

0.3743 

1.24E-02 

4.83E-05 

9.65E-05 

1.25E-03 

test1b12 

1.11E-07 

2.21E-04 

testi  cl  2 

4.17E-07 

8.47E-04 

testi  d1 2 


testi  el 2 
testi  aa 


testi  bb 


testi  cc 


testi  dd 
testi  ee 


testi  ff 


testi  gg 
testi  hh 
testi  ii 


1.38E-07 

1.11E-07 

1.29E-05 


2.71E-04 


1.05E-05 

2.00E-05 


2.76E-04 

2.22E-04 

2.50E-04 


1.32E-02 

2.02E-04 

4.01E-04' 


7.48E-08 


2.87E-08I 


5.21  E-06 


1.S0E-04 


5.74E-05 

8.27E-05 


1.68E-07 


1.53E-07 


3.08E-08 


3.81E-06 


1.14E-05 

2.20E-04 

1.76E-05 

3.53E-04 

8.54E-02 

4.119 

5.51  E-06 

1.12E-05' 

2.31E-02' 


3.51  E-06 

2.99E-06' 

2.32E-02' 


1.06E-04 
2.24E-04  ' 

1.102" 


6.75E-05 

5.98E-05' 

1.117' 


6.79E-05 


5.47E-06 

1.65E-05 

5.90E-02 


1.67E-03 

5.93E-05 

5.92E-02 
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11.2  Biharmonic-Multiquadrics  Method 


MQ  is  a  method  for  true  scattered  data,  a  scheme  for  representing  surfaces  and  bodies  in  an 
arbitrary  dimensional  space.  As  described  before,  monotonicity  and  convexity  are  observed 
properties  of  the  method,  and  it  is  not  only  used  for  interpolation  but  for  estimation  of  partial 
derivatives. 

The  implementation  of  MQ  is  described  in  Chapter  5.  Similar  to  the  Thin-Plate  Spline  method, 
some  options  were  explored.  Among  them:  the  issue  of  scaling  the  data  to  a  unit  domain  or  using 
the  data  as  given;  a  global  implementation  versus  local  (i.e.,  domain  decomposition  or 
subdomaining);  and  the  presence  of  the  r  parameter  to  be  set  by  the  user  or  be  internally  evaluated. 
These  options  were  investigated  using  a  partial  set  of  test  set  1  to  determine  the  most  efficient,  yet 
accurate  method  of  implementing  MQ. 

Overall  Accuracy  -  Statistical  summaries  of  the  test  cases  are  presented  in  Tables  1 1.6  -  1 1.10. 
The  overall  accuracy  of  the  MQ  method  is  very  good.  Even  though  the  error  varies  across  the 
range  of  test  case  functions,  it  is  usually  less  Aan  10%  of  the  function  amplitude  or  magnitude. 
The  largest  errors  occurred  in  the  sinusoidal  cases  with  higher  number  of  cycles.  Figures  11-11 
and  11-12  plot  the  error  for  each  category  of  function  test  cases.  It  is  directly  observed  from  these 
plots  that  the  method  has  excellent  performance  for  constant  and  most  linear  and  sinusoidal 
functions.  There  is,  however,  a  tendency  towards  larger  errors  for  the  higher-frequency  sinusoidal 
functions,  even  though  the  relative  error  remains  below  5%.  For  most  runs,  the  maximum  and  the 
average  errors  are  of  the  same  order  of  magnitude,  indicating  that  the  method  is  not  sensitive  to  any 
particular  location  on  the  surface. 

Grid  Spacing  Sensitivity  -  The  large  variation  of  errors  in  Figures  11-11  and  11-12  indicates  that 
MQ  is  sensitive  to  grid  spacing.  The  constant  functions  in  Figure  11-11  show  the  interpolation  to 
be  insensitive  to  the  grid  spacing.  However,  the  linear  and  sinusoidal  function  interpolations  show 
a  12  order  of  magnitude  difference  in  error.  The  runs  marked  “A”  in  Figure  11-11  indicate  that  the 
function  was  interpolated  to  an  identical  grid.  For  the  sets  of  data  marked  “B”,  the  function  was 
interpolated  to  a  grid  which  was  clustered  in  near  the  edges  -  as  found  in  CFD  grids.  However, 
the  overall  maximum  error  is  less  than  10%,  with  most  errors  remaining  below  1%  with  respect  to 
the  function  amplitude  or  magnitude. 

As  an  example  of  a  characteristic  oscillation  in  the  interpolation  result.  Figure  11-13  shows  a 
typical  interpolation  error  plot  using  MQ.  Figures  11-13  a)  and  11-13  b)  show  the  reference  and 
the  interpolated  one-cycle  sinusoid^  function,  respectively.  The  errors  are  primarily  concentrated 
on  the  border  of  the  domain  (Figures  1 1-13  c)  and  1 1-13  d) ). 

Directional  Bias  -  Figure  11-11  includes  the  functions  examined  in  test  set  1.  These  data  ate 
virtually  identical  for  both  directions,  indicating  little  or  no  sensitivity  to  direction  of  the  function. 

Magnitude/Amplitude  Sensitivity  -  MQ  appears  to  have  no  sensitivity  to  different  function 
magnitudes  and/or  amplitudes,  as  shown  by  Ae  constant  errors  for  different  amplitudes  in  Figure 
11-14  for  test  set  1.  This  trend  is  consistent  for  function  type,  plates,  shells,  direction  of  the 
function  and  grid  (test  sets  1  and  2).  This  trend  is  as  anticipated  since  MQ  is  a  linear  method. 

Sensitivity  to  Frequency  (Higher  Oscillations^  -  MQ  is  sensitive  to  the  frequency  of  the  function. 
From  the  results  in  Tables  11.6  -  11.9,  the  errors  are  very  small  for  constant  and  linearly- varying 
functions.  Figures  11-11  and  11-12  confirm  this  trend.  There  is  a  very  large  jump  in  error  when  a 
sinusoidal  varying  function  is  introduced.  The  sinusoidal  functions  shown  in  Figures  11-11  and 
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11-12  are  for  one  cycle  over  the  surface.  When  the  frequency  of  the  sinusoidal  function  is 
increased,  the  error  from  MQ  interpolations  increases  rapidly.  Figure  11-15  shows  an  increase  of 
6-11  orders  of  magnitude  when  the  function  frequency  is  increased  from  one  to  three  cycles.  The 
error  remains  approximately  constant  above  three  cycles  since  the  relative  error  has  reached  the 
same  order  of  magnitude  of  the  function. 

The  reason  for  this  large  jump  in  error  from  Figure  11-15  is  seen  in  Figure  11-16.  Here,  the 
interpolation  result  for  a  three-cycle  sinusoid  is  plotted.  Notice  that  while  the  function  amplitude  is 
captured  along  the  surface  edges,  the  amplitude  prediction  has  slightly  degraded  along  the  interior 
of  the  grid,  as  seen  by  a  slight  concavity  in  Figure  11-16  b).  The  oscillations  discussed  earlier, 
and  plotted  for  a  one-cycle  sinusoid  oscillation  in  Figure  11-13  are  now  more  apparent  These 
oscillations  occur  in  the  direction  where  the  function  is  supposed  to  be  constant,  indicating  a 
directional  coupling  of  the  interpolation. 

Extrapolation  -  The  maximum  relative  errors  for  test  sets  1  and  3  are  plotted  in  Figure  11-17  to 
illustrate  the  impact  of  extrapolation  on  the  accuracy  of  MQ.  It  is  apparent  that  MQ  is  not  as 
accurate  for  extrapolations  since  the  errors  increase  by  approximately  four  orders  of  magnitude  for 
linearly  varying  as  well  as  bi-linearly  varying  functions.  For  the  test  cases  with  sinusoidal 
variations,  Ae  errors  for  interpolation  and  extrapolation  are  similar  (see  Figure  11-17).  MQ  does 
appear  to  have  problems  with  the  sinusoidal  functions  in  multiple  directions.  For  the  larger  error 
results,  it  is  apparent  from  Table  1 1.8  that  the  maximum  errors  are  not  due  to  extrapolation,  but  to 
the  interior  curve  fitting.  Since  most  pressures  and  mode  shapes  will  rapidly  vary  in  the  regions 
which  are  most  likely  to  require  extrapolation  (leading  edge,  trailing  edge,  root,  tip,  etc.),  the 
results  indicate  that  special  attention  should  be  taken  when  using  the  MQ  method  for  extrapolation 
of  high-frequency  functions  since  they  can  lead  to  unacceptably  large  percentage  errors. 

Diminishing  Variation  -  Figure  11-18  shows  that  the  relative  error  does  not  increase  as  the  grids 
are  doubled,  indicating  that  MQ  is  consistent.  If  the  errors  show  a  change,  this  would  indicate  that 
oscillations  are  being  introduced  into  the  interpolation  as  the  grid  becomes  finer. 

Sensitivity  to  Three-Dimensional  Surfaces  (Plates  Vs.  Shells!  -  From  Figures  11-11  -  11-18,  it  is 
seen  that  the  only  sensitivity  that  MQ  has  when  extended  from  two-  to  Aree-dimensional  surfaces 
is  in  the  constant  and  linear  regions.  The  sensitivities  due  to  sinusoidal  functions  do  not  change  to 
any  significant  degree. 

Sensitivity  to  Grid  Irregularities  -  For  the  irregular  grid  test  set  (test  set  2),  MQ  performed  very 
well  for  constant  and  linearly  varying  functions.  There  is  a  large  jump  in  the  error  when  MQ  is 
applied  to  sinusoidal  functions  (see  Table  11.7).  Franke  [11]  has  indicated  that  the  number  of 
elements  that  define  the  original  grid  can  be  a  factor  in  the  accuracy  of  the  method.  Since  the  grid 
here  is  very  sparse,  it  seems  likely  that  this  causes  the  errors  associated  with  those  rapidly  varying 
functions  to  increase  even  more.  It  is  important,  therefore,  that  this  method  be  used  with  grids  that 
have  enough  points  to  adequately  identify  the  shape  of  the  function  since  MQ  does  not  offer  the 
smoothing  that  is  inherent  in  some  spline  methods. 

Sensitivity  to  Subdomaining  and  Overlapping  -  For  global  versus  local  implementation,  some 
definitions  are  in  order.  The  term  global  implies  that  the  entire  surface  is  solved  at  once,  resulting 
in  a  single  linear  system  problem.  Thus,  all  points  will  have  a  bearing  on  the  interpolation.  The 
term  local  means  that  the  surface  is  subdivided  into  a  prescribed  number  of  subdomains.  The 
points  within  the  subdomain  are  influenced  only  by  the  other  points  within  the  subdomain.  There 
are  some  common  overlapping  regions  where  the  quantities  are  blended  using  weighted  averages. 
This  option  has  a  bearing  on  the  size  of  the  linear  system  to  be  solved. 
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The  association  between  the  size  of  the  linear  system  and  the  performance  of  the  MQ  scheme  was 
considered.  For  example,  to  run  a  case  with  an  input  grid  of  150  x  150,  the  linear  system  to  be 

solved  would  have  a  22,500  x  22,500  fully-populated  coefficient  matrix  if  the  method  is  used  in  its 
global  form.  In  addition  to  the  huge  memory  requirements  to  run  realistic  cases,  Kansa  [12,  13] 
points  out  that  the  condition  number  of  the  coefficient  matrix  tends  to  increase  with  size.  He 
recommends  implementing  the  method  with  subdomains,  which  lowers  the  demand  for  computer 
memory  by  reducing  the  size  of  the  linear  system  to  be  solved.  The  main  advantages  of 
subdomaining  are  decrease  in  the  overall  CPU  time  requirement,  and  the  reduction  of  the  arrays 
dimensions,  thus  reducing  the  overall  memory  requirements.  In  addition,  rapidly  varying 
functions  can  be  more  accurately  interpolated  by  limiting  the  zone  of  influence.  A  disadvaritage  of 
the  subdomain  approach  is  that  two  additional  parameters  in  the  form  of  the  subdomain  divisions 
and  overlap  regions  are  introduced.  One  must  also  ensure  that  there  are  an  adequate  number  of 
points  in  each  subdomain. 

The  subdomain  concept  was  implemented  by  allowing  a  maximum  number  of  input  points  in  each 
direction  (x,  y,  and  z)  for  a  given  region.  This  approximately  defines  the  size  of  the  loc^  linear 
system  to  ^  solved.  More  points  enter  in  the  region  through  the  overlapping  areas  (which  was 
varied  between  10%  -  30%  of  the  dimension  of  the  subdomain  in  each  direction).  Most  cases 
were  run  using  20  as  the  maximum  number  of  points  in  each  direction  and  10%  overlapping.  This 
gives  a  reasonable  size  of  sub-problems  to  be  solved,  and  samples  a  good  portion  of  the  original 
problem.  Reducing  the  number  of  points  would  increase  the  performance  of  the  code,  but  it  can 
reduce  the  accuracy  of  the  interpolation  if  an  insufficient  number  of  points  is  taken  in  one  or  more 
subdomains. 

In  order  to  illustrate  the  change  in  the  accuracy  of  the  method  as  function  of  the  subdomainirig  ^d 
scaling,  test  Ip  was  used  with  a  fixed  10%  overlapping  in  each  direction.  Since  its  input  grid  is  a 

50  X  10,  subdivisions  were  made  only  along  the  x-direction,  where  more  points  were  available. 
Figure  11-19  shows  the  error  of  the  solution  of  test  Ip  as  function  of  the  number  of  subdomains. 
Two  sets  of  data  were  also  included  to  show  the  influence  of  scaling  each  subdomain  to  a  unit 
square.  There  is  no  significant  difference  in  the  interpolation  results  as  a  function  of  these  two 
parameters. 

Significance  of  the  Additional  Parameter  r-  The  parameter  r  has  been  introduced  in  the  formulation 
to  make  the  basis  function  infinitely  differentiable  (see  Chapter  5).  Increasing  its  value  better 
represents  constant  derivatives  (Franke  [11]).  As  pointed  out  by  Kansa  [12,  13],  varying  r  also 
improves  the  condition  number  of  the  linear  system.  For  all  of  the  test  cases  in  this  report,  die 

parameter  was  varied  exponentially  from  10'^  to  10'^.  In  addition,  no  difference  in  the 

interpolation  results  was  found  when  r  <  lO’^  or  r  >  1.  Thus,  as  long  as  derivatives  are  not 
required,  the  r  parameter  should  be  used  in  the  range  discussed  above.  The  linear  system  becomes 
ill-conditioned,  even  for  some  of  the  small  test  cases  when  considering  partial  derivatives.  It 
appears  that  r  must  then  be  evaluated  on  a  case-by-case  basis. 

Sensitivity  tn  Planar  Curves  (Beam-Like  Casesl  -  Tables  1 1 . 10  and  1 1.1 1  summarize  the  statistical 
results  obtained  from  MQ  when  interpolating  data  along  a  planar  curve  for  both  scaled  and 
unsealed  data.  The  method  performed  very  well  and  the  maximum  overall  error  was  <  1%  («  1% 
for  most  of  the  cases).  For  the  set  of  test  cases  studied,  there  were  no  significant  differences  in 
scaling  achieved  by  scaling  the  data. 

Algorithm  CPU  Memory  and  Time  Requirements  -  The  average  CPU  time  requirement  is 
approximately  1—3  seconds  (refer  to  the  last  column  of  Tables  11.6  —  11.11).  An  exception  to  this 
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average  is  for  test  cases  with  very  large  errors,  indicative  of  ill-conditioned  matrices.  These  runs 
required  on  the  average  of  200  to  400  seconds.  All  these  results  were  computed  for  a  maximum  of 
20  input  data  point  in  each  direction  of  the  subdomain  and  a  10%  overlapping  of  the  subregions. 

The  algorithm  CPU  memory  requirement  can  be  determined  using  following  algorithm: 

CPU  SIZE  (megabytes)  =  0.3  +  9.1374x10-4  KGS  +  1.0839x10-7  KGS^ 

+  3.0867x10-4  UKS  +  8.0995x10-11  UKS^ 

where  KGS  is  the  total  number  of  points  for  the  grid  where  the  function  is  known  and  UKS  is  the 
total  number  of  mesh  points  for  the  grid  to  which  the  function  is  to  be  interpolated.  For  example, 
if  mode  shapes  are  to  be  interpolated  from  a  structural  mesh  to  a  CFD  mesh,  KGS  is  the  number  of 
mesh  points  for  the  structural  mesh,  and  UKS  is  the  number  of  surface  CFD  grid  points.  The 
CPU  SIZE  function  is  plotted  in  Figure  11-20.  This  function  yields  values  within  1%  of  the  actual 
CPU  size  during  tests. 

The  influence  of  subdomaining  and  the  size  of  the  overlapping  on  the  memory  requirement  is 
shown  in  Figure  11-21.  The  data  are  based  on  150  x  150  input  grid  and  200  x  200  output  grid. 
There  is  a  drastic  reduction  in  the  amount  of  memory  required  when  the  subdomaining  technique  is 
used,  reflecting  directly  on  the  CPU  time  required.  Figure  11-22  shows  the  actual  memory 
requirements  and  CPU  time  for  the  test  Ip,  previously  used  to  study  the  accuracy  of  the 
subdomaining. 
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□  Maximum  Error  a  =  Regular  Grid 

O  Average  Error  b  =  Clustered  Grid 


Constant  Linear  Sinusoidal 

Test  Set  1 

Figure  11-11.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

Multiquadiics 


□  Maximum  Error  A  =  Regular  Grid 

O  Average  Error  B  =  Clustered  Grid 


Constant  Linear  Sinusoidal 

Test  Set  1 

Figure  11-12.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Shells  Using 

Multiquadrics 
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c)  Orthogonal  View  of  the  Error  d)  Error  Contours 


Figure  11-13.  Example  of  Oscillations  Induced  by  the  Multiquadrics  Method  (Test  11)  for  a 

One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 


- 1  A=  Constant,  Regular  Grid 

□  Maximum  Error  B=  Linear  &  1  Cycle  Sinusoid,  Regular  Grid 

O  Average  Error  C=  Constant,  Clustered  Grids 

- - - '  D=  Linear  &  1  Cycle  Sinusoid,  Clustered  Grids 


Magnitude/Amplitude 


Figure  1 1-14.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function 

□  Maximum  Error  A  =  Plate/Shell,  Amplitude=1.0 
O  Average  Error  fi  =  Plate/Shell,  Amplitude=.01 


Number  of  Cycles 

Figure  11-15.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal 

Cycles  on  the  Surface  Using  Multiquadrics 


□  Extrapolated  Data  A  =  Constant/Linear  Combinations 

O  Interpolated  Data  B  =  Sinusoidal  Combinations 


Test  Sets  1  and  3 

Figure  1 1-17.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  Multiquadrics 

□  Maximum  Error  A  =  Linear/Constant  Combinations 

O  Relative  Error  B  =  Sinusoidal  Combinations 


Test  Set  4 

Figure  1 1-18.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  4)  Using 

Multiquadrics 
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□  Maximum  Error  A  =  without  scaling 

O  Average  Error  b  =  with  scaUng 


Number  of  Subdomains 

Figure  11-19.  Variation  of  the  Maximum  Error  as  Functions  of  the  Number  of  Subdomains 
and  Scaling  for  the  Multiquadrics  Method  (Test  Ip) 


Number  of  Baseline  Grid  Points 

Figure  1 1-20.  CPU  Memory  Requirements  for  the  Multiquadrics  Method  as  Implemented  with 
10%  Overlapping  and  No  More  Than  11-20  Points  Along  Each  Direction  of  the  Subdomain 
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Number  of  subdomains 

Figure  11-21.  Influence  of  the  Size  of  the  Overlapping  Region  and  the  Subdomaimng  on  the 
Memory  Requirement  for  a  Hypothetical  Test  Case  (input  grid  =  150  x  150;  output  grid  =  200  x 

200)  for  the  Multiquadrics  Method 


Number  of  Subdomains 

Figure  1 1-22.  Influence  of  Subdomaining  on  the  Memory  Requirement  and  CPU  Time  for 

Multiquadrics  Method  (Test  Ip) 
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Table  1 1.6  Statistical  Summ 


Maximum  Error 
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of  Test  Set  1  using  Multiquadrics 
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Table  11.6  Statistical  Summary  of  Test  Set  1  using  Multiquadrics  (Cont.) 


Maximum  Error  _ i  Average  Error _ 


CPU  Time 


(Seconds) 


1.28 

5.47E-14 


3.03E-02  0.85375 

9.60E>04  0.96281 


1  5.24E-03I 

0.1047 

6.21  E-03 

1.08453 

testi  ii2 

4.44E-15 

8.88E-14 

testi  kk2 

2.11E-02 

0.4219 

testi  112 

7.88E-02 

3.966 

testi  mm2 

1.07E-13 

2.13E-13 

testi  nn2 

2.00E-15 

1.96E-13 

2.53E-02 


4.71  E-02 


5.09E-03 

0.1017 

2.59E-02 

1.302 

MBStffi 


test1tt2 

7.96E-03 

testi  A 

2.31E-14 

testi  B 

1.91E-14 

testIC 

2.11E-02 

testi  D 

4.18E-02 

testi  G 

8.34E-05 

testIH 

7.46E-02 

testi) 

0.4078 

testU 

0.2702 

testi  A1 
testi  B1 

8.33E-07 

8.29E-07 

testICI 

2.12E-02 

testi  D1 

4.21E-02 

testi  El 

8.93E-02 

testi  FI 

8.45E-02 

10.21 


13.38 


8.33E>06 


1.19E-05 

0.2124 


1.75E-07 

5.13E»03 


2.51E-06I 


1.278 

21 

1.209 

1 

7.04E-03 

7.04E-02 

2.66E-02 

0.3802 

testi  HI 

7.52E-02 

testi  11 

0.4079 

1.11281 


1.77E-07  1.4725 

~.14E>03  0.2662r 


3 


2.40E-02 


2.40E-02  228.25999 
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Table  11.6  Statistical  Smnmary  of  Test  Set  1  using  Multiquadrics  (Cont.) 


Test  Case 

I  Maximum  Error 

Averaa 

e  Error 

Standard 

HSSSESSiii 

Absolute 

1  Location 

J  Location 

Absolute 

Deviation 

lestlA2 

0.3062 

3.062 

3 

3 

0.1719 

1.719 

0.1728 

3.3772 

test1B2 

1 .611 

22.49 

7 

8 

0.7693 

10.74 

0.7733 

3.37787 

test1C2 

0.1528 

1.499 

1 

1  0 

3.62E-02 

0.3552 

4.37E-02 

2.03885 

testlD2 

0.1702 

1.702 

1 

1  0 

0.5987 

5.99E-02 

2.03247 

lest1E2 

1.266 

21 

1  0 

3.537 

0.2525 

2.04605 

testlF2 

1.262 

mmmBu 

1  2 

0.2401 

3.363 

0.2404 

2.02963 

test1G2 

3.41  E-04 

1.41E-02 

1 

1  0 

1.20E-04 

4.94E-03 

7.61E-03 

2.03336 

test1H2 

1.251 

37.28 

12 

0.2394 

7.136 

2.077 

test1 12 

3.584 

82.8 

50 

12 

1.306 

1.306 

test1J2 

3.141 

130.3 

53 

56 

1.289 

53.46 

1.054 
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Table  1 1.7  Statistical  Summary  of  Test  Set  2  using  Mulriquadrics 


Maximum  Error  I 

Averaqe  Error 

Standard 

CPU  Time 

Absolute 

i  Location 

J  Location 

Absolute 

Deviation 

(Seconds) 

test2A 

O.OOE+00 

O.OOE+00 

0 

0 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.42 

test2B 

2.27E-02 

1.134 

5 

1 

4.07E-03 

1.65 

test2C 

1.68E<02 

0.8401 

1 

4 

4.89E<03 

0.2444 

7.24E-03 

1.7375 

0.1125 

1.875 

5 

1 

0.3588 

1.7975 

45.3 

8 

7 

0.2421 

12.29 

0.4196 

1.84 

test2F 

O.OOE+00 

O.OOE+00 

8 

O.OOE+OO 

8.39E-03 

1.02125 

test2G 

2.26E-02 

1.128 

25 

1 

3.33E-03 

0.1663 

test2H 

1.72E-02 

0.8619 

1 

0.1969 

test2l 

0.1117 

1.862 

25 

1 

0.2842 

1.308 

33 

32 

0.245 

1.181 

25 

1 

0.27 

45.56 

30 

1.66E-04 

8.336 

test2A1 

5.44E-07 

2.52E-05 

2 

2 

1.83E-07 

8.49E-06 

1.84E-07 

1.39 

test2B1 

2.27E-02 

1.134 

5 

1 

3.79E-03 

0.1896 

3.81E-03 

1.595 

lest2C1 

1.68E-02 

0.8401 

1 

4 

4.65E-03 

0.2325 

1.7175 

0.1125 

1.875 

5 

1 

0.3277 

0.9201 

45.8 

8 

7 

0.2622 

13.05 

0.2636 

2.78E-05 

1  0 

7 

2.36E-07 

1.09E-05 

5.27E-03 

1.00625 

test2G1 

2.26E-02 

1.128 

25 

1 

0.1626 

3.25E-03 

1.48938 

test2Hl 

1.72E-02 

0.8619 

1 

3.86E-03 

0.1932 

3.87E-03 

1.63406 

test2i1 

0.1117 

1.862 

25 

1 

1.67E-02 

0.278 

1.67E-02 

1.79516 

33 

32 

2.39E-05 

1.30E-02 

3.35E-04 

1.90141 

6.43E-02 

25 

1 

2.65E-05 

1.44E-02 

2.73E-05 

1.95922 

I  test2N1 

1  9.30E-04 

0.5203 

31 

29 

1.71E-04 

9.54E-02 

1.70E-04 

2.03867 
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Table  1 1.8  Statistical  Summary  of  Test  Set  3  using  Multiquadrics 


Test  Case 

Maximum  Error 

Averao 

e  Error 

Standard 

CPU  Time 

Absolute 

1  Location 

J  Location 

Absolute 

Deviation 

(Seconds) 

test3A 

0.7014 

14.03 

1 

1 

1.085 

1.135 

testSB 

0.6772 

19.43 

1 

3 

9.34E-02 

2.68 

0.22 

1.4625 

testSC 

0.3856 

7.712 

1 

1 

1.988 

0.1364 

0.285 

test3D 

0.7014 

14.03 

1 

1 

0.1205 

2.409 

0.1855 

0.64062 

1.208 

1 

1  9 

0.2851 

8.163 

0.6586 

0.83563 

1  test3F 

0.7032 

20.11 

1 

9 

0.1757 

5.024 

0.3384 

0.99094 

0.1375 

1 

1 

2.41 E-04 

2.36E-02 

1.07E-02 

1.08891 

test3H 

0.5548 

36.81 

1 

1  2 

0.1762 

11.69 

0.3783 

1.06656 

test3l 

2.296 

115 

1 

6 

0.2274 

11.39 

0.6219 

■KBEEi 

1.807 

179 

4 

48 

0.464 

4 

48 

O.OOE+00 

O.OOE+00 

4.66E-02 

3.85333 

test3B3 

9.39E-02 

4.694 

10 

1 

1.56E-02 

0.7791 

3.13E-02 

3.85358 

test3C3 

9.49E>02 

4.746 

1  0 

1  0 

1.41E-02 

0.7054 

3.06E-02 

3.85382 

test3D3 

0.4481 

7.468 

1.286 

0.1508 

3.8541 

test3E3 

1.1 

55.83 

1  0 

10 

0.2711 

13.76 

0.4486 

3.85437 

test3F3 

O.OOE+00 

O.OOE+00 

1  0 

1  0 

O.OOE+OO 

8.97E-03 

2,91547 

test3G3 

9.39E-02 

4.694 

50 

1 

3.31 E-02 

1.654 

5.31E-02 

2.91089 

test3H3 

9.49E-02 

4.746 

50 

50 

3.02E-02 

1.508 

5.52E-02 

2.9166 

0.5495 

9.158 

49 

50 

0.167 

2.784 

0.2744 

2.93231 

test3J3 

1.1 

55.36 

50 

50 

0.3316 

16.69 

0.5076 

2.91797 

test3K3 

5.20E-18 

5.20E-14 

1  9 

1  9 

8.50E-19 

8.50E-15 

1.02E-02 

2.9136 

tesl3L3 

9.26E-04 

9.264 

50 

49 

1.94E-04 

1.937 

4.22E-04 

2.94916 

test3M3 

9.38E-04 

9.376 

49 

1 

1.95E-04 

1.954 

3,83E-04 

2.94473 

test3N3 

1.10E-03 

55.36 

50 

50 

3.31  E*04 

16.68 

5.08E-04 

2.97037 

test3Al 

1.00E-06 

2.01E-05 

4 

3 

2.96E-07 

5.91  E-06 

2.97E-07 

1.015 

test3B1 

0.4064 

11.66 

1 

8 

5.64E-02 

1.619 

0.302 

test3C1 

1.52E-06 

3.04E-0S 

9 

13 

9.S6E-03 

0.4075 

7 

2 

2.77E-07 

5.54E-06 

3.02E-04 

0.01563 

24.6 

1 

20 

0.2373 

6.794 

0.3373 

0.16875 

test3Fl 

0.4098 

11.72 

1 

12 

9.59E-02 

2.742 

0.3462 

0.30406 

test3G1 

1.24E-06 

1.06E-04 

4 

16 

3.62E-07 

3.09E-05 

1.10E-02 

0.34516 

test3H1 

0.4098 

25.55 

1 

1  2 

9.59E-02 

5.979 

9.59E-02 

0.44328 

test3l1 

2.34 

112.4 

1 

1 

2.618 

374.8 

3 

84 

0.5241 

44.47 

2.735 

409.80814 

1.07E-06 

2.13E-05 

4 

6 

3.13E-07 

6.25E-06 

0.2749 

3.47241 

test3B2 

0.4117 

11.81 

1 

8 

5.44E-02 

1.562 

0.2931 

3.48315 

test3C2 

1.56E-06 

3.11E-05 

9 

1  3 

9.27E-03 

1.72421 

2 

2.86E-07 

1  test3E2 

1  0.8659 

24.79 

1 

7 

0.2363 

1  6.764 

■ffWI 

11.85 

1 

1  2 

ihihhbei 

0.3363 

1.7265 

test3G2 

1.31E-06 

1.12E-04 

8 

1  0 

1.06E-02 

1.74057 

test3H2 

0.4146 

25.85 

1 

1  2 

9.44E-02 

5.887 

9.45E-02 

1.75467 

test3l2 

2.364 

113.5 

1 

1 

0.2334 

11.21 

2.598 

10.10089 

■mi 

392-9 

3 

49 

0.4952 

42.02 

2.859 

396.13104 
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Table  1 1.8  Statistical  Summary  of  Test  Set  3  using  Multiquadrics  (Cont.) 


Test  Case 

Maximum  Error  I 

Averaae  Error  1 

Standard 

CPU  Time 

1  Location  |  J  Location  | 

Absolute 

Deviation 

(Seconds) 

test3A4 

5.44E-07 

2.52E-05 

2 

2 

1.83E-07 

8.49E-06 

test3B4 

5.49E-07 

2.75E-05 

7 

8 

1.93E-07 

9.64E-06 

test3C4 

5.49E-07 

2.75E-05 

8 

9.65E-06 

2.90E-03 

4.34058 

test3D4 

9.75E-07 

1.63E-05 

3 

3 

2.35E-07 

3.92E-06 

2.92E-04 

4.35083 

0.7094 

35.31 

10 

10 

0.1458 

7.259 

0.5398 

4.34113 

6.06E-07 

2.78E-05 

10 

7 

2.36E-07 

1.09E-05 

test3G4 

6.06E-07 

3.03E-05 

23 

1  6 

■Em 

test3H4 

6.04E-07 

3.02E-05 

1  6 

23 

2.39E-07 

1.20E-05 

4.33E-06 

3.20374 

test3l4 

1.02E-06 

1.70E-05 

48 

18 

4.17E-06 

2.60E-07 

3.14948 

0.7094 

34.71 

50 

50 

0.185 

3.18536 

4.7eE-08 

2.54E-05 

28 

6.08E-10 

3.18115 

test3L4 

9.74E-08 

5.30E-05 

25 

28 

1.21E-09 

6.60E-07 

1.58E-04 

3.21716 

test3M4 

9.73E-08 

5.30E-05 

28 

test3N4 

7.09E-04 

0.3968 

50 

1.85E-04 

0.1035 

3.57E-04 

3.21881 

0.7055 

14.11 

1 

1 

5.68E-02 

1,137 

1.1 

0.6738 

19.33 

1 

3 

9.85E-02 

2.826 

0.6708 

1.4475 

1  test3C1 

0.3881 

7.763 

1 

1 

0.1007 

2.013 

0.1029 

0.285 

0.7055 

14.11 

1 

1 

0.1221 

2.441 

0.1222 

0.65125 

1.205 

34.49 

1 

20 

0.2887 

8.265 

0.4369 

0.82375 

20.03 

1 

9 

0.1782 

5.097 

0.7609 

0.94656 

test3G1 

1.41E-03 

0.1204 

1 

1 

2.44E-04 

mm . 

test3H1 

0,5507 

34.34 

1 

12 

0.1787 

11.14 

0.1788 

1.11219 

test3t1 

2.306 

110.8 

1 

6 

0.2636 

12.66 

2.254 

9.35563 

1.745 

148 

4 

83 

0.2934 

0.2211 

0.7014 

14.03 

1 

1 

5.83E-02 

1.167 

6.27E-02 

3.51489 

0.6772 

19.43 

1 

3 

0.1442 

4.137 

0.7087 

3.52554 

7.712 

1 

1 

9.96E-02 

1.991 

0.1021 

2.19653 

14.03 

1 

1 

0.1207 

2.414 

0.1208 

2.19009 

1.209 

34.6 

1 

20 

0.2904 

8.314 

0.439 

2.22369 

0.7032 

20.11 

1 

9 

0.1808 

5.171 

0.7568 

0.1197 

1 

1 

2.42E-04 

2.06E-02 

2.40E-02 

34.6 

1 

1  2 

0.1814 

11.31 

0.1815 

I  tpst3i2 

2.296 

110.3 

1 

6 

0.3707 

17.8 

2.371 

1.804 

153 

4 

48 

0.417 

0.1062 

357.653631 

I  test3A4 

5.44E-07 

2.S2E-05 

2 

2 

1.07E-02 

4.694 

1  0 

1 

1.53E-02 

0.7631 

7.66E-02 

4.24994 

test3C4 

9.49E-02 

4.746 

1  0 

1  0 

1.37E-02 

0.6854 

8.20E-02 

4.26019 

test3D4 

0.5521 

9.201 

1  0 

1  0 

0.4787 

54.73 

10 

1  0 

0.2946 

14.66 

1.127 

BiiiS 

6.06E-07 

2.78E-06 

1  0 

7 

2.36E-07 

1.09E-05 

2.26E-02 

3.33185 

test3G4 

9.39E-02 

4.694 

50 

1 

5.84E-02 

3.32721 

test3H4 

9.49E-02 

4.746 

50 

50 

6.49E-02 

test3l4 

0.5521 

9.201 

50 

50 

2.78 

0.3855 

test3J4 

1.1 

53.8 

50 

50 

16.46 

0.7728 

3.35364 

test3K4 

4.78E-08 

2.54E-05 

28 

29 

6.08E-10 

3.23E-07 

1.55E-02 

3.34912 

test3L4 

9.32E-04 

0.5072 

50 

50 

■■■EEISE! 

1  HHHHjHMIPMK 

8.01 E-04 

3.35455 

\mmmm 

9.43E-04 

0.5133 

50 

1 

1.95E-04 

0.1062 

1.13E-03 

3,33008 

I  test3N4 

1.10E-03 

0.6152 

50 

50 

3.36E-04 

0.1881 

7.00E-04 

3.37567 
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Table  1 1.9  Statistical  Summary  of  Test  Set  4  using  Multiquadrics 


Test  Case 

Maximum  Error 

Averaqe  Error 

Standard 

Absolute 

I  Location 

J  Location 

Absolute 

Deviation 

test4A2 

0.9922 

19.84 

2 

3 

0.1655 

3.311 

0.2407 

3.86 

test4A3 

1.083 

21.66 

2 

2 

0.1732 

3.464 

0.251 

21.8 

test4B2 

1.397 

40.19 

1 

10 

0.3051 

8.778 

0.4229 

30.05 

test4B3 

1.4 

40.25 

1 

1  9 

0.3105 

8.926 

0.4235 

48.23 

0.5637 

11.27 

3 

1 

0.393 

7.859 

0.2142 

42.55 

test4C3 

0.5642 

11.28 

2 

1 

0.3813 

7.626 

0.2154 

test4D2 

1.128 

22.56 

3 

1 

0.3908 

7.816 

42.5 

test4D3 

1.129 

22.57 

2 

1 

0.3894 

7.787 

0.4355 

224.52 

test4E2 

1.402 

40.29 

145 

1 

0.3418 

9.819 

0.4181 

42.36 

test4E3 

1.404 

40.33 

289 

1 

0.3423 

9.828 

0.4182 

224.92999 

test4F2 

1.403 

40.31 

1 

33 

0.3562 

10.23 

0.4184 

42.71 

test4F3 

1.398 

40.22 

1 

65 

0.3576 

10.29 

225.09 

test4G2 

2.24E-03 

0.2198 

2 

2 

9.96E-04 

313.10001 

test4G3 

2.25E-03 

0.2204 

400 

147 

9.92E-04 

9.73E-02 

test4H2 

0.9608 

64.41 

200 

33 

0.2106 

14.12 

0.3292 

42.78 

lest4H3 

0.9551 

64.25 

400 

65 

0.2113 

14.22 

0.33 

225.49001 

test4A12 

3.869 

77.37 

1 

1 

2.393 

47.86 

4.87 

3.85 

test4A13 

3.869 

77.37 

1 

1 

2.395 

47.91 

4.869 

22.5 

test4B12 

2.202 

63.35 

1 

20 

1,148 

33.04 

1.462 

30.87 

2.202 

63.3 

1 

40 

1.146 

1.196 

49.62 

test4C12 

4.47 

89.39 

1 

41 

4.189 

83.77 

8.387 

96.69 

test4C13 

4.47 

89.39 

1 

81 

4.19 

8.389 

test4Dl2 

3.869 

77.37 

1 

1 

2.923 

58.45 

5.906 

367.07001 

■asm 

3.869 

77.37 

58.49 

5.908 

548.58002 

test4E12 

2.202 

63.27 

174 

1 

1.281 

36.8 

2.629 

636.47998 

test4El3 

2.202 

63.23 

348 

1 

1.282 

36.8 

2.619 

226.82001 

lest4Fl2 

2.201 

63.2 

1 

40 

1.785 

51.27 

1.854 

42.63 

lest4Fl3 

2.202 

63.34 

1 

80 

1.786 

1.821 

225.06 

test4G12 

1.018 

84.47 

200 

80 

1.014 

84.15 

2.028 

313.07001 

test4Gl3 

1.018 

84.15 

400 

160 

1.014 

83.82 

2.028 

494.70999 

test4H12 

0.775 

49.1 

176 

22 

0.4429 

28.06 

1.123 

582.71002 

test4H13 

0.7753 

49.29 

352 

42 

0.4423 

28.12 

1.122 

766.95001 
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Table  1 1.10  Statistical  Summary  of  Test  Set  5  using  Multiquadrics  with  no  Scalin 


Test  Case 


Maximum  Error 


Absolute 


1.94E-16 

4.44E-16 


I  Location  ] 

1  J  Location  | 

1  Absolute 

L94E-14 

4.44E-14 


O.OOE-hOOl  O.QOE+OOl 


8.33E-17I  833E>-15 


EESSSSSl^EISSISSSli 


testSi 


tests 


testSk 


testSl 


testSm 


6.66E-16 

2.22E-15 


5.77R-15I 


O.OOE+00 


6.66E-14 
2.22E-13 ' 


5.77E-13 


O.OOE+00 


2.13E-16 


2.61E-16 


1.48E-16 


2.72E-05 

9.50E-05 


1.59E-04 


5.30E-05 


1.77E-05 


6.94E-17 


5.55E-17 


testSr 

testSal 


6 


2.34E-04 

l.OlE-15 


1.33E-15 

1.55E-15 


3.5SE-15 

5.11E-15 


5.33E-15 


S.26E-04 

9.68E-04 


1.47E-03 

5.77E-14 


0.2341 

3.38E-14 


4.44E-14 

5.18E-14 


L70E-13 


1.78E-13 


L75E-02 

3,23E-02 


4.89E-02 

L92E-11 


1  4.09E>14 

1  O.OOE+00 


1.36E-12 

O.OOE+00 


testSkl 


testSl  1 


testSml 


testSnl 


testSol 

testSpl 


8.40E-16 

1.90E-04 


2.80E-13 

6.32E-02 


O.OOE+OO 

l.llE-16 

O.OOE+00 


O.OOE+OQ 


2.02E-15 


O.OOE+00 


3.70E-14 


O.OOE+00 


O.OOE+00 

5.89E-06 

2.52594 

i^BfrrsRrsii 

2.17312 

2.93E-18 

2.93E-15 

5.95E-08 

2.15594 

O.OOE+00 

O.OOE+00 

5.98E-09 

i  2.18062 

1.39E-17 

1.39E-14 

1.59E-05 

1.66469 

O.OOE+00 

O.OOE+00 

5.30E-06 

2.72625 
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Table  11.11  Statistical  Summary  of  Test  Set  5 


Maximum  Error 


Absolute 


1.94E-16 


4.44E-16 

6.66E-16 


6.66E-16 


2.00E-15 


2.22E-15 


4.11E-04 


1  percentage  | 

I  Location  | 

1  J  Location  | 

1  Absolute 

L94E-14 


4.44E-14 

6.66E-14 


6.66E-14 


2.00E-13 


2.22E-13 


4.11E-02 


using  Multiquadrics  with  Scalin 


Standard 


Deviation 


2.13E-16 


3.20E-16 


2.61E-16 


1.99E-16 


L13E-15 


O.OOE+00 


O.OOE+00 

O.OOE+OO' 


O.OOE+00 


O.OOE+OO 


O.OOE+OO 


L33E-15 


O.OOE+OO 


O.OOE+OO 

O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


1.33E43 


2.72E-05 


test5h 

1.43E-03 

0.1426 

499 

1 

1.33E-15 

1.33E-13 

9.50E-05 

1.30187 

test5i 

2.34E-03 

0.2341 

499 

1 

6.22E-15 

6.22E-13 

1.59E-04 

1.42437 

test5j 

1.02E-14 

1.02E-11 

1 

1 

O.OOE+OO 

O.OOE+OO 

5.30E-05 

2.51125 

test5k 

3.47E-17 

3.47E-14 

9 

1 

O.OOE+OO 

O.OOE+OO 

1.77E-05 

2.49406 

test51 

6.94E-17 

6.94E-14 

9 

1 

O.OOE+OO 

O.OOE+OO 

5.89E-06 

2.54719 

test5m 

5.55E-17 

5.55E-14 

1 

1 

O.OOE+OO 

O.OOE+OO 

5.92E-07 

2.17375 

test5n 

1.42E-16 

1.42E-13 

12 

1 

O.OOE+OO 

O.OOE+OO 

5.95E-08 

2.15656 

test5o 

3.40E-16 

3.40E-13 

64 

1 

O.OOE+OO 

O.OOE+OOi 

5.98E-09 

2.21 

mmm 

— 

4.11E-05 

1.67E-16 

4.11E-02 

1.67E-13 

499 

1 

1 

1 

5.55E-17 

O.OOE+OO 

5.55E-14 

O.OOE+OO 

2.72E-06 

9.07E-07 

1.54906 

2.66938 

1  test5r 

2.34E-04 

0.2341 

499 

1 

1.39E-17 

1.39E-14 

1.59E-05 

1.61312 

test5al 

7.63E-16 

test5bl 

1.1  IE- 15 

test5cl 

1.89E-15 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 


O.OOE+OO 
O.OOE+OO  ~ 
O.OOE+OO 


3.78E-15 


7.33E45I 

9,33E-15 


5.30E-06 

1.77E-06 

5.88E-07 


5.91E-08 


testSkl 

testSll 

testSml 


testSnl 


l.llE-16 

2.22E-16 

4.23E-16 


8.33E-16 


1.12E-15 

5.52E-05 


test5kl 

1.72E-15 

test5rl 

1.54E-04 

1.84E-02 


3.38E-02 


1.78E-11 


3.70E-14 
7.40E-14 
1.41E-13  ’ 


2.78E>13 


3.75E-13 

1.84E-02 


5.12E-02 


O.OOE+OO  O.OOE+OO 


1.39E-17 

1.39E>17~ 

1.39E-17' 


O.OOE+OO 


4.63E-15 
4.63E-15  ^ 
4.63E-15 


O.OOE+OO 


2.37E-05 
7.90E-06 
7-94E-07 ' 


7.98E-08 


1.39E-17 

4.63E-15 

8.02E-09 

2.54375 

5.55E-17 

1.85E-14 

7.40E-06 

1.87922 

1.39E-17 

4.63E-15 

2.96969 

5.55E-17 

1.85E-14 

2.13E-05 

1.93672 

1.39E-04 

1.77641 

2.13E-04 

1.78312 

7.11E-05 

2.87375 

2.89516 

2.87625 

2.49984 


2.51156 
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11.3  Non-Uniform  B-Splines  Method 


The  non-uniforai  B-splines  method  is  the  method  which  is  based  on  an  existing  CAD  package. 
This  method  is  of  particular  interest  since  the  CAD  package  (DT_NURBS)  can  conceivably  be 
used  for  interfacing  CAD  geometries  directly  into  any  interface  methodology.  If  the  interface 
method  and  the  CAD  geometry  packages  can  be  combined  as  one  CAD  package,  the  memory 
savings  and  continuity  across  the  code  could  be  significant.  The  implementation  of  the  non- 
uniform  B-splines  (NUBS)  method  is  described  in  Chapter  6. 

Pyprall  Accuracy  —  Statistical  summaries  of  these  test  cases  are  presented  in  Tables  11.12  to  11.15. 
The  overall  accuracy  of  the  NUBS  method  is  excellent,  however  the  implementation  of  the  method 
has  some  problems  which  need  to  be  corrected  in  future  applications.  The  primary  shortcoming  is 
that  the  correlation  of  the  known  and  the  unknown  grids  relies  on  a  bilinear  interpolation.  This 
interpolation  can  introduce  errors  which  are  particularly  felt  for  the  double  precision 
implementation.  In  addition,  the  search  routine  which  locates  the  known  structure  panel  (grid  at 
which  the  function  is  known)  in  which  the  unknown  grid  point  is  located  appears  to  have  some 
regarding  tolerances  for  points  which  are  very  close  to  panels,  but  because  of  the  number  of 
decimal  points  may  not  be  “numerically”  inside  the  panel. 

For  the  cases  which  did  not  have  any  problems  with  the  search  routine,  the  overall  accuracy  of  the 
NUBS  method  was  excellent,  as  demonstrated  by  Figure  11-23.  Figure  11-23  plots  the  error  for 
each  category  of  function  test  cases.  It  is  easily  observed  from  these  figures  that  for  all  of  the 
functions  in  test  case  1,  the  method  has  excellent  performance.  For  two-dimensional  surfaces 
(plates),  the  maximum  error  which  occurs  is  5%  with  most  errors  less  than  1%.  For  three- 
dimensional  surfaces  (shells),  the  maximum  error  increases  to  25-30%  for  the  very  high  frequency 
data.  Again,  most  of  the  errors  are  less  than  1%  for  the  functions  tested. 

The  very  high  accuracy  of  this  algorithm  is  demonstrated  by  Figures  11-24  and  11-25  which  are 
plots  of  one  and  three  cycle  sinusoidal  functions,  respectively.  The  errors  are  virtually  zero,  as 
seen  in  c)  and  d)  for  the  two  figures.  In  addition,  the  error  remains  consistent  across  the  dir^tion 
where  the  function  remains  constant  This  is  important  since  it  demonstrates  that  the  method  is  not 
adversely  influenced  by  widely  different  functions  in  each  direction.  Functions  of  this  type  can  be 
found  in  mode  shapes  and  pressure  coefficients. 

Grid  Spacing  Sensitivity  -  Figure  11-23  indicates  that  the  NUBS  method  is  somewhat  sensitive  to 
grid  spacing.  In  Figure  1 1-23,  the  data  plotted  on  the  first  minor  tick  for  each  of  the  three  function 
types  is  the  regular  grid,  while  the  minor  tics  2-4  in  each  function  type  correspond  to  the  other 
clustered  grids.  For  the  constant  functions,  the  interpolation  was  insensitive  to  the  grid  spacing  to 
which  the  data  was  transferred.  However,  for  the  linear  and  sinusoid^  functions,  a  dramatic 
difference  was  noted.  The  error  increased  between  8  to  12  orders  of  magnitude  between  these  two 
types  of  grids.  It  should  be  noted  that  the  errors  are  stUl  below  10%  of  the  overall  magnitude  or 
amplitude  for  all  of  the  functions,  and  less  than  1%  of  most  of  the  functions. 

Directional  Bias  -  Figure  11-23  includes  the  streamwise  (testla  -  11)  and  spanwise  (testla2  -  12) 
functions  examined  in  test  set  1.  These  data  are  virtually  identical  for  both  directions,  indicating 
little  or  no  sensitivity  to  direction  of  the  function. 

Magnimde/Amplitude  Sensitivity  -  The  NUBS  method  does  not  have  any  sensitivity  to  amplitude. 
In  Figure  11-23,  the  error  for  magnitudes  at  10'^  are  two  orders  of  magnitude  less  than  functions 
whose  magnitude  is  10“.  This  trend  is  consistent  for  function  type,  plates,  shells,  direction  of  the 
function  and  grid. 
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Sensitivity  to  Frequency  (Higher  Oscillations')  -  The  NUBS  method  is  somewhat  sensitive  to  the 
frequency  of  the  function.  As  shown  in  Figure  11-26,  when  the  frequency  of  the  sinusoidal 
function  is  increased  to  3  and  5  cycles,  the  error  of  the  NUBS  method  increases  by  two  and  one 
orders  of  magnitude,  respectively.  When  the  function  is  increased  from  5  to  7  cycles,  the  error  of 
the  NUBS  method  decreases  by  over  one  order  of  magnitude.  Overall,  the  error  is  stiJOi  very  small 
relative  to  the  amplitude  of  the  function  (less  than  0.1%). 

Extrapolation  -  Test  set  3  was  designed  to  examine  the  algorithm’s  ability  to  extrapolate  data.  The 
maximum  errors  for  test  sets  1  and  3  are  plotted  in  Figure  11-27  to  illustrate  the  impact  of 
extrapolation  versus  interpolation.  It  is  apparent  from  this  figure  that  the  NUBS  method  is  not  as 
accurate  for  extrapolations  since  the  maximum  errors  increase  by  several  orders  of  magnitude 
which  varies  depending  on  the  function  type.  It  should  be  noted  however,  that  the  overall 
maximum  errors  remain  less  than  0.1%  of  the  overall  function  amplitude  or  maximum  value. 

Diminishing  Variation  -  Figure  1 1-28  shows  that  the  error  does  not  vary  with  increasing  fineness, 
indicating  that  the  interpolation  scheme  is  consistent  for  each  function. 

Sensitivity  to  Three-Dimen.sional  Surfaces  (Plates  Vs.  Shells)  -  From  Figure  11-23,  it  is  apparent 
that  the  NUBS  method  does  lose  some  accuracy  when  applied  to  the  three-dimensional  surfaces. 
The  error  increases  by  approximately  6  to  8  orders  of  magnitude.  For  the  higher-frequency 
oscillatory  functions,  the  error  reaches  almost  30%  of  the  function  amplitude.  The  remainder  of  the 
functions  has  errors  of  less  than  5%  (and  in  most  instances  is  less  than  1%). 

Algorithm  CPU  Memory  and  Time  Requirements  -  The  average  CPU  time  requirement  varies 
between  1  to  10  seconds  (refer  to  the  last  column  of  Tables  11.12  through  11.15),  with  the 
exception  of  the  test  cases  which  had  very  large  errors,  indicative  of  ill-conditioned  matrices  for 
several  of  the  sinusoidal  functions  or  problems  with  the  search  routine.  These  runs  required  on  the 
average  of  70  to  80  seconds. 

The  CPU  memory  requirements  for  NUBS  are  shown  in  Figure  11-29,  computed  using  : 

CPU  SIZE  =  1.08x10^  -I-  190.79KGS  -0.00682KGS^ 

+  640.26UKS  -  1.9605xl0’^UKS^ 

where  KGS  is  the  total  number  of  grid  points  in  the  known  function  ^d  and  UKS  is  the  total 
number  of  grid  points  in  the  grid  to  be  interpolated  to.  This  function  yields  values  within  2%  of 
the  actual  CPU  size  during  testing.  The  large  starting  memory  size  (1.08x10^)  is  due  to  the 
requirement  of  a  large  30,000  point  work  array.  This  memory  requirement  is  expected  to  decrease 
with  the  implementation  of  dynamic  memory  routines  in  DT_NURBS  3.1. 

Beam  Element  -  The  NUBS  method  requires  that  there  be  at  least  4  points  in  each  direction  of  tire 
surface.  Since  the  beam  is  modeled  with  one  point,  the  NUBS  methodology  could  not  evaluate 
test  set  5.  It  is  possible  to  implement  the  DT_NURBS  package  to  beam  elements  using  different 
functions  within  the  package. 

Single  Precision  -  The  DT_NURBS  package  from  which  this  method  was  implemented  requires 
that  the  parameters  be  dimensioned  as  douWe  precision.  Without  extensive  modification  to  the 
entire  CAD  package  -  which  was  not  a  criteria  of  this  research  -  evaluation  of  the  method  at  single 
precision  was  not  possible. 
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A  =  Plates,  Magnitude  of  Order  0.01 
B  =  Plates,  Magnitude  of  Order  1.0 
C  =  Shells,  Magnitude  of  Order  1 .0 


Test  Set  1 

Figure  1 1-23.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

the  NUBS  Method 
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a)  Original  Function 


b)  Interpolated  Function 


d)  Error  Contours 

Example  of  Oscillations  Induced  by  the  NUBS  Method  (Test  1)  for  a  One-Cycle 
Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 


a)  Original  Function 


b)  Interpolated  Function 


c)  Orthogonal  View  of  Error 


d)  Error  Contours 


1 1-25.  Example  of  Oscillations  Induced  by  the  NUBS  Method  (Test  p)  for  a  Three- 
Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 
(X-axis  and  Y-axis  have  been  expanded  for  visibility) 
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A  =  Amplitudes  of  Order  0.01 
B  =  Amplitudes  of  Order  1 . 


012345678 
Number  of  Cycles 

Figure  1 1-26.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

the  NUBS  Method 


Test  Case 


Figure  1 1-27.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

For  the  NUBS  Method 


CPU  Memory  (MegaBytes) 


Test  Set  1  &  4 

Figure  1 1-28.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  1  and  4) 

For  the  NUBS  Method 


Figure  1 1-29.  CPU  Memory  Requirements  for  the  Non-Uniform  B-Spline  Method 


Table  11.12  Statistical  Summary  of  Test  Set  1  using  Non-Uniform  B-Splines 


Test  Case 

[  Maximum  Error  I 

Average  Error 

Standard 

CPU  Time 

Absolute 

i  Location 

J  Location 

Percentage 

Deviation 

(Seconds) 

7.11E-14 

3 

1 

6.93E-16 

1.24E-15 

1.4575 

test  1b 

1.33E-07 

2.65E-06 

6 

2 

4.10E-08 

8.20E-07 

9.33E-08 

1.6825 

testic 

3.12E-07 

1.59E-05 

6 

1 

6.43E-08 

3.26E-06 

1.50E-07 

1.85875 

testid 

1.07E-13 

36 

2 

1-31E-15 

2.62E-14 

testle 

1.02E-06 

2.04E-05 

27 

8 

3.03E-07 

6.06E-06 

5.70E-07 

1.04875 

testif 

1.37E-03 

6.85E-02 

47 

4 

3.70E-04 

1.85E-02 

0.365 

test  la 

4.44E-15 

8.88E-14 

3 

1 

1.15E-15 

0.32 

testih 

1.01E-06 

2.03E-05 

12 

1  0 

2.17E-07 

4.33E-06 

3.80E-07 

0.80062 

testli 

1.37E-03 

6.85E-02 

4 

1 

0.2825 

testli 

4.44E-15 

8.88E-14 

1  9 

2 

1.04E-15 

0.87125 

testik 

9.46E-07 

1.89E-05 

2 

2.53E-07 

5.06E-06 

8.94E-07 

1.06094 

testi! 

1.29E-03 

6.52E-02 

30 

2 

3.65E-04 

1.84E-02 

6.15E-04 

1.16625 

testim 

3.S5E-14 

7.11E-14 

3 

2 

1.24E-14 

2.49E-14 

6.18E-05 

2.42031 

test  In 

2.65E-10 

2.60E-08 

6 

1 

8.20E-11 

2.45031 

testi  0 

2.65E-10 

1.33E-06 

6 

1 

8.20E-11 

2.48922 

test  Id 

1.13E-04 

5.66E-03 

6 

17 

2.03E-03 

6.68E-05 

0.36844 

testi  a 

95 

5 

3.42E-04 

1.71  E-02 

5.62E-04 

1.16672 

testi  r 

4.04E-05 

2.02E-03 

178 

5 

1.36E-0S 

6.78E-04 

2.25E-05 

9.95125 

testis 

1.13E-06 

5.64E-03 

6 

2.03E-03 

8.99E-07 

0.21062 

testi  t 

9.69E-06 

4.85E-02 

4 

1.71  E-02 

0.90078 

testlu 

4.00E-07 

2.00E-03 

178 

5 

1.36E-07 

6.77E-04 

2.42E-07 

9.0818 

testi  a1 

4.16E-17 

8.33E-14 

3 

1 

1.03E>17 

2.05E-14 

testi  b1 

1.33E>09 

2.65E-06 

6 

1 

4.10E-10 

2.92234 

testid 

7.81  E-09 

1.S9E-0S 

6 

1 

1.61E-09 

3.26E-06 

3.74E-09 

2.93172 

testi  d1 

5.55E-17 

1.11E-13 

36 

4 

1.32E<17 

2.65E-14 

1 .18E-10 

1.84336 

testi  el 

5.84E-09 

1.17E-05 

42 

2 

1.29E-09 

1.84242 

testif  1 

1.33E-05 

6.65E-02 

36 

9 

4.87E-06 

2.44E-02 

8.02E-06 

1.86543 

testi  a1 

4.86E-17 

9.71E-14 

4 

1 

1.44E-17 

2.87E-14 

2.54E-07 

1.72953 

testi  hi 

5.48E-09 

1.10E-05 

12 

1 

1.30E-09 

testi  i1 

1.37E-05 

6.85E-02 

4 

18 

3.70E-06 

1.85E-02 

7.62E-06 

1.85921 

testi  i1 

4.86E-17 

9.71E-14 

20 

6 

1.18E-17 

2.41  E-07 

1,91371 

testikl 

7.68E-09 

1.54E-05 

2 

1.56E-09 

8.06E-09 

1.83808 

testi  11 

1.29E-05 

6.51E-02 

30 

4 

1.84E-02 

6.15E-06 

1.90277 

testi  a2 

3.55E-15 

7.11E-14 

3 

1 

6.93E-16 

1.39E-14 

1.24E-15 

1.47 

testi  b2 

2.67E-15 

5.33E-14 

3 

1 

4.60E-16 

9.19E-15 

7.72E-16 

1.6875 

testi  c2 

1.11E-15 

5.64E-14 

9 

8 

2.24E-16 

1.14E-14 

3.57E-16 

1.85125 

testi  d2 

5.33E-15 

1.07E-13 

36 

2 

1.31E-15 

2.62E-14 

1.48E-15 

0.86937 

testi  e2 

9.37E-07 

1.87E-05 

2 

1  7 

3.88E-07 

6.45E-07 

1.10625 

test1f2 

1.25E-03 

6.23E-02 

39 

1  9 

3.24E-04 

4.53E-04 

1.23156 

testi  q2 

4.44E-15 

8.88E-14 

3 

1 

1.15E-15 

2.29E-14 

1.43E-05 

1.23469 

mrmtm 

1.89E-05 

12 

4 

2.S1E-07 

5.02E-06 

6.33E-07 

1.20485 

test1i2 

1.25E-03 

6.23E-02 

4 

2 

3.24E-04 

1.62E-02 

6.80E-04 

1.26375 

testi  12 

4.44E-15 

8.88E-14 

1  9 

2 

1.04E-15 

2.09E-14 

test1k2 

6.27E-07 

1.25E-05 

29 

1  1 

2.64E-07 

testi  12 

1.16E-03 

5.81  E-02 

21 

12 

4.20E-04 

7.19E-04 

testi  m2 

3.55E-14 

7.11E-14 

3 

2 

1.24E-14 

2.49E-14 

7.23E-05 

2.77219 

testi  n2 

8.88E'16 

8.71E-14 

1 

1 

1.94E-14 

2.79156 

testi  o2 

1.39E-17 

6.94E-14 

9 

9 

IHinSE] 

2.77031 

testi  p2 

1.13E-04 

5.66E-03 

5 

6 

4.06E-05 

2.03E-03 

6.69E-05 

0.2243 

5 

95 

3.42E-04 

1.71  E-02 

5.62E-04 

1.05281 

testi  r2 

4.03E-05 

2.01E-03 

5 

178 

6.78E-04 

2.42E-05 

10.64711 

test1s2 

1.13E-06 

5.64E-03 

5 

6 

4.05E-07 

2.03E-03 

9.30E-07 

0.01609 

test1t2 

9.69E-06 

4.85E-02 

5 

95 

3.42E-06 

1.71  E-02 

5.62E-06 

0.85945 

testi  u2 

3.99E-07 

1.99E-03 

4 

178 

1.36E-07 

6.78E-04 

10.71055 

testi  a1 2 

4.16E-17 

8.33E-14 

3 

1 

1.03E-17 

2.05E-14 

2.43E-08 

3.16539 

tesf1b12 

2.78E-17 

S.55E-14 

3 

1 

4.82E-18 

9.65E-15 

2.44E-09 

3.20004 

testi  cl  2 

3.47E-17 

7.05E-14 

9 

3 

5.81E-18 

1.18E-14 

testi  d1 2 

5.55E-17 

1.11E-13 

36 

4 

1.32E-17 

2.65E-14 

testi  el  2 

7.11E-09 

1.42E-05 

38 

17 

2.71  E-06 

2.37E-09 

2.01488 

testif  12 

1.18E-05 

5.94E-02 

10 

15 

1  4.77E-06 

2.39E-02 

7.88E-06 

2.00949 
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Table  11.12  Statistical  Summary  of  Test  Set  1  using  Non-Uniform  B-Splines  (Cont.) 


Maximum  Error 


Average  Error 


CPU  Time 


test1  bb 


testicc 


testidd 


testlee 


testiff 


7.21  E-07 


0.2737 


0.3597 


1.50E-09 


4.20E-06 


1.80E-07 


1.51E-06 


4.05E-06 


2.24E-07 


3.98E>02 


4.99E-02 


4.31  E>06l  2.58E-07I  >1.49875 


2.384 


4.54E-06 


0.4539  2.27E-02 


4.49E*04 


6.85E-04J 


3.52E-04 


4.10E-08 


6.43E-08 


1.31E-15I 


test1ee2 

1.02E-06 

2.04E-05 

test1H2 

1.37E-03 

6.85E>02 

0.3529 


0.1778 


8.20E-07 


3.26E-06 


2.62E-14 


6.06E-06 


3.70E-04 


1.15E-15 


testi  kk2 

9.46E-07 

1.89E-05 

test11l2 

1.29E-03 

6.52E-02 

testi  mm2 

3.55E-14 

7.11E-14 

2.65E-10 

2.60E-08 

testi  oo2 

2.65E-10 

1.33E-06 

1.13E-04 

5.66E-03 

I^KX^!SE!3liiKES9EEl 

1  testi  rr2 

1  4.04E-05 

1  2.02E-03 

1.04E-151 


2.53E-07 


1.36E-05 


4.05E-07 


3.42E-06 


1.26E-07I 


4.33E-06 


1.85E'02 


2.09E-14 


1.84E-02 


2.49E-14 


8.04E-09 


4.10E-07 


1.71  E-02 


2.03E-03 


1.71E-02I 


6.34E-04 


4.10E-07 


5.88E-07 


testIG 

1.07E-06 

5.26E-05 

1  1 

testIH 

1.16E-03 

3.84E-02 

48 

testi  1 

1.47E-03 

3.68E-02 

20 

testU 

7.87E-04 

3.90E-02 

testlAI 

1.86E-05 

1.86E-04 

testIBI 

1.86E-05 

2.67E-04 

testi  Cl 

0.2544 

2.544 

4.20E-04I 


4.93E-04 


3.43E-04I 


1.65E-06 


1.61E-06I 


5.23E-03 


6.01  E-03 


1.53E-05 


1.39E-02 


1.70E-02 


1.65E-05 


2.31  E-05 
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Table  11.12  Statistical  Summary  of  Test  Set  1  using  Non-Uniform  B-Splines  (Cont.) 
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Table  11.13  Statistical  Summary  of  Test  Set  2  using  Non-Uniform  B-Splines 


Test  Case 

Maximum  Error  I 

Average  Error 

Standard 

CPU  Time 

Absolute 

1  Location 

J  Location 

Absolute 

Deviation 

(Seconds) 

4.727 

3 

4 

4.83E-03 

0.2414 

1.60E-02 

1.92875 

test2D 

0.3997 

6.662 

3 

5 

3.34E-02 

0.5569 

7.94E-02 

test2E 

0.4338 

22.02 

3 

5 

0.1112 

5.648 

0.2073 

2.11875 

test2F 

21 

3 

4.23E-16 

0.75063 

test2G 

1  6 

25 

3.06E-03 

0.3875 

test2H 

0.1045 

5.224 

20 

23 

1.03E-03 

0.30844 

test2l 

1.092 

18.19 

16 

25 

1.52E-02 

0.2536 

0.17281 

test2J 

0.8322 

41.9 

1  6 

25 

6.58E-02 

3.31 

0.1293 

0.0518 

test2K 

1.04E-17 

1.04E-13 

25 

28 

2.38E-18 

0.04875 

test2L 

1.20E-03 

11.97 

16 

25 

1.66E-05 

0.1659 

0.06359 

test2M 

9.34E-04 

9.343 

1  6 

0.1783 

5.91E-05 

0.04601 

test2N 

8.32E-04 

41.9 

1  6 

25 

6.58E-05 

test2Al 

5.44E-07 

2.52E-05 

2 

2 

1.83E-07 

-1.625 

test2Bl 

8.75E-02 

4.377 

3 

5 

6.86E-03 

0.343 

-1  .8125 

lest2Cl 

9.45E-02 

4.727 

3 

4 

4.83E-03 

0.2414 

4.90E-03 

-1.95125 

test2Dl 

0.3997 

6.662 

3 

5 

0.5569 

3.36E-02 

-2.06625 

test2E1 

0.4338 

21.59 

3 

5 

0.1112 

5.537 

0.1118 

-2.15062 

test2F1 

2 

91.81 

8 

21 

0.112 

5.141 

0.112 

"•■-i-i.kj.ii 

test2G1 

1.894 

94.68 

1  2 

1  6 

0.1001 

5.005 

0.1001 

-0.87813 

test2Hl 

1.999 

99.94 

2 

1  9 

0.1114 

5.572 

0.1115 

-0.98531 

test2l1 

5.467 

91.12 

2 

16 

0.2748 

4.58 

0.2749 

-1.35438 

test2L1 

9.46E-03 

5.151 

2 

0.2688 

5.52E-03 

-1.27164 

test2M1 

7.36E-03 

4.004 

2 

25 

3.64E-04 

0.1979 

-1.28328 

test2N1 

1.51E-03 

0.8445 

1  5 

21 

1.13E-04 

6.34E-02 

1.15E-04 

-1.50594 
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Table  1 1.14  Statistical  Summary  of  Test  Set  3  using  Non-Uniform  B-Splines 


Test  Case 

Maximum  Error  i 

Averaae  Error 

Standard 

Absolute 

J  Location  I 

Deviation 

testSA 

1.34E-03 

2.68E-02 

1 

2 

1.16E-04 

4.12E-04 

1.475 

testSB 

3.61  E-02 

1.035 

2 

7 

0.1383 

1.18E-02 

1.71875 

testSC 

1.79E-04 

3.59E-03 

1 

1 

7.78E-04 

3.78E-04 

0.71375 

test3D 

1.34E-03 

2.68E-02 

1 

4 

2.21E-04 

4.43E-03 

5,87E-04 

0.93375 

test3E 

3.78E-02 

1.081 

31 

7 

0.1562 

9.96E-03 

1.12344 

test3F 

4.61  E-02 

1.317 

1  8 

12 

0.1386 

1.35E-02 

1.1875 

test3G 

3.60E-03 

0.3528 

1 

9 

6.73E-04 

6.60E-02 

1.81  E-03 

1.30141 

test3A 

1.34E-03 

2.68E-02 

1 

2 

1.16E-04 

2.32E-03 

4.12E-04 

1.44 

test3B 

3.61  E-02 

1.035 

2 

7 

4.82E-03 

0.1383 

1.18E-02 

1.675 

test3C 

1.79E-04 

3.59E-03 

1 

1 

3.89E-05 

7.78E-04 

3.78E-04 

0.64375 

test3D 

1.34E-03 

2.68E-02 

1 

2.21E-04 

4.43E-03 

5.87E-04 

0.91188 

testSE 

3.78E-02 

1.081 

31 

0.1562 

9.96E-03 

1.01 

1.317 

1  8 

12 

0.1386 

1.35E-02 

1.27906 

test3G 

3.60E-03 

0.3528 

1 

9 

6.73E-04 

6.60E-02 

1.81  E-03 

1.24688 

test3A1 

4.167 

83.33 

3 

2 

0.1591 

3.182 

0.1599 

-1.4975 

test3Bl 

2.929 

84.06 

3 

3 

0.1194 

3.427 

0.1211 

-1.73875 

test3Al 

4.186 

83.73 

3 

2 

0.1852 

3.704 

0.746 

1.425 

test3Bl 

2.969 

85.19 

3 

3 

0.1439 

4.129 

0.5357 

1.66875 

test3Cl 

4.508 

90.15 

20 

1  0 

3.50E-02 

0.6994 

0.3432 

0.5725 

test3Dl 

4.082 

81.65 

20 

8 

3.08E-02 

0.6169 

0.2905 

0.9625 

test3El 

3.148 

90.13 

21 

8 

3.13E-02 

0.8966 

0.2225 

1.00875 

tGSl3Fl 

20 

9 

2.79E-02 

0.7972 

0.2109 

!  1.22969 

1.103 

94.06 

21 

10 

1.60E-02 

1.365 

1.19859 

1.56 

97.26 

21 

9 

2.08E-02 

1.298 

0.1067 

1.38875 

test3A3 

1.55E-15 

7.77E-14 

2 

3 

2.35E-16 

1.56 

test3B3 

0.2239 

11.2 

1  0 

6 

1.76E-02 

0.8778 

4.46E-02 

1.765 

test3C3 

0.1175 

5.877 

3 

1 

9.63E-03 

0.4816 

1.89375 

test3D3 

1.12 

18.66 

1  0 

6 

9.45E-02 

1.575 

0.2241 

test3E3 

1.409 

71.52 

1  0 

1  0 

0.2386 

12.12 

0.4825 

2.10188 

test3F3 

1.78E-15 

8.88E-14 

15 

1  9 

7.75E-17 

3.87E-15 

9.65E-03 

0.19937 

test3G3 

0.3398 

16.99 

1  6 

25 

1.12E-02 

0.5573 

3.32E-02 

0.04187 

test3H3 

0.1233 

6.167 

19 

1 

7.78E-03 

0.3888 

2.06E-02 

0.19906 

test3i3 

1.772 

29.53 

1  6 

6.28E-02 

1.046 

0.1666 

0.28766 

test3J3 

1.409 

70.92 

50 

50 

0.3354 

16.89 

0.53805 

test3K3 

1.04E-17 

1.04E-13 

30 

25 

4.80E-19 

4.80E-15 

0.48211 

test3L3 

2.06E-03 

20.62 

1  6 

25 

9.25E-05 

3.28E-04 

0.54695 

test3M3 

1.34E-03 

13.35 

16 

25 

9.19E-05 

0.919 

0.58172 

test3N3 

1.41  E-03 

70.92 

50 

50 

3.35E-04 

16.89 

6.64E-04 

0.78711 

105 


Table  11.15  Statistical  Summary  of  Test  Set  4  using  Non-Uniform  B-Splines 


Test  Case 

Maximum  Error  1 

Averaae  Error  1 

Standard 

ESSDuBI 

I  Location  |  J  Location  | 

Deviation 

test4A2 

1.23E-06 

16 

15 

0.39 

test4A3 

1.46F-06 

2.92E-05 

31 

28 

3.41E-07 

6.81  E-06 

6.105 

toet4RP 

1.676 

9 

29 

2.45E-02 

0.70411 

3.9IE-O2I 

0.39594 

1.687 

18 

test4C2 

9.65E-07 

1.93E-05 

154 

5  3l 

3.13E-071 

6.26E-06 

1.05E-06 

2.11E-05 

6.52E-06 

1.33E-06 

82.79489 

■RTTSnH 

153 

6 

3.20E-07 

18.3591 

HKXnSBIS 

318 

78 

3.23E-07 

6.46E-06 

5.00E-07 

83.02826 

test4P2 

IH^Rrll^VSn 

1.687 

188 

6 

1.77E-02 

0.5093 

3.58E-02 

18.06747 

test4E3 

5.87E-02 

1.685 

305 

58 

1.78E-02 

0.5108 

3.59E-02 

82.10675 

test4F2 

5.66E-02 

1.626 

103 

35 

1.46E-02 

0.4198 

17.95575 

test4F3 

1.682 

251 

69 

1.48E-02 

0.4251 

test4G2 

160 

48 

2.95E-07 

2.89E-05 

18.81665 

test4H2 

5.66E-O2I 

3.795 

167 

35 

1.46E-02 

0.9797 

19.1125 

test4H3 

3.933 

357 

69 

1.48E-02 

0.9941 

85.93512 

tAftt4A1P 

100 

1 

1 

0.2886 

5.772 

0.9982 

0.385 

5 

100 

1 

1 

0.2654 

5.307 

0.9486 

5.66563 

3.476 

1 

10 

0.2309 

6.644 

0.74891 

test4Bl  3 

3.479 

1 

1  9 

0.2168 

6.232 

5.40453 

test4C12 

5 

100 

1 

1 

1.432 

28.64 

2.231 

5 

100 

1 

1 

1.414 

28.28 

2.222 

70.74551 

test4Dl2 

5 

100 

1 

1 

1.364 

27.29 

2.13 

15.17609 

test4Dl  3 

5 

100 

1 

1 

1.35 

27 

2.125 

3.13 

89.94 

118 

1 

0.7312 

21.01 

1.128 

test4E13 

3.135 

236 

1 

0.7249 

20.81 

1.127 

test4F12 

3.482 

100 

1 

33 

0.8174 

23.48 

1.26 

14.55573 

lest4F13 

3.477 

100 

1 

65 

0.8083 

23.25 

1.256 

68.94855 

tP<?t4G12 

1.051 

118 

39 

0.3012 

25 

0.453 

5 

1 

1 

0.2886 

5.772 

0.42 

0.2848 

5.696 

21 

21 

7.12E-02 

1.424 

0.5675 

test4A23 

0.2925 

5.849 

40 

40 

7.31E-02 

1.462 

test4B22 

0.2864 

8.24 

20 

21 

7.57E-02 

2.177 

1est4B23 

0.2933 

8.43 

41 

41 

\WCBSm 

2.224 

tfist4C22 

0.19 

3.8 

174 

40 

1.05E-02 

0.2107 

1  H!S!!F?SScHi 

3.893 

349 

81 

1.07E-02 

0.213 

test4D22 

0.19 

3.8 

174 

4  0 

1.05E-02 

0.2107 

17.8689 

test4D23 

0.1947 

3.893 

349 

81 

1.07E-02 

0.213 

0.1895 

5.444 

175 

1.94E-02 

0.556 

17.53806 

5.601 

1.94E-02 

0.5581 

tes14F22 

I  0.1942 

5.577 

174 

43 

1.95E-02 

0.5612 

Irnimssim 

5.636 

349 

81 

1.98E-02 

test4G22 

0.19 

15.77 

174 

40 

16.79657 

0.1947 

16.09 

349 

1.07E-02 

Immmim 

12.3 

174 

43 

1.95E-02 

1.236 

18.31856 

1  test4H23 

I  0.196 

12.46 

349 

81 

1.98E-02 

1.257 
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11.4  Thin-Plate  Spline  Method 


The  Thin-Plate  Spline  (TPS)  method  is  a  hybrid  of  the  Multiquadrics  and  the  Infinite-Plate  Spline 
methods.  Indeed,  it  is  merely  a  local  version  of  the  latter,  generalized  to  higher  dimensionality,  and 
its  equations  are  identical  to  those  of  the  former  except  for  the  basis  function  used. 

The  implementation  of  TPS  is  described  in  Chapter  7.  Similar  to  MQ,  some  options  were  explored. 
Among  them,  the  issue  of  scaling  the  data  to  a  unit  domain  or  using  the  data  as  given,  and  a  global 
implementation  versus  local  (i.e.,  domain  decomposition  or  subdomaining).  These  options  were 
investigated  using  a  partial  set  of  test  set  1  to  determine  the  most  efficient,  yet  accurate  method  of 
implementing  TPS. 

Overall  Accuracy  -  Statistical  summaries  of  the  TPS  results  are  presented  in  Tables  11.16-  11.21. 
The  overall  accuracy  of  the  TPS  method  is  very  good.  The  error  does  not  vary  dramatically  across 
the  range  of  test  case  functions;  is  usually  less  than  5%  and  for  several  functions  «  1%.  The 
largest  errors  occurred  in  the  sinusoidal  cases  with  high  number  of  cycles.  Figures  1 1-30  and  11- 
31  plot  the  error  for  each  category  of  function  test  cases.  It  is  directly  observed  from  these  plots 
that  the  method  has  excellent  performance  for  constant,  linear,  and  for  one-cycle  sinusoidal 
functions.  There  is,  however,  a  tendency  for  larger  errors  for  the  higher-frequency  sinusoidal 
functions,  even  though  the  relative  error  remains  less  than  10%.  For  the  majority  of  the  runs,  there 
is  no  large  difference  between  the  maximum  and  the  average  errors,  indicating  that  the  method  is 
not  sensitive  to  any  particular  location  on  the  surface. 

Grid  Spacing  Sensitivity  -  Figures  11-30  and  11-31  indicate  that  the  sensitivity  of  TPS  to  grid 
spacing  is  associated  with  the  function  to  be  interpolated.  The  sets  of  runs  marked  “A”  on  the 
figure  indicate  that  the  function  was  transferred  to  an  identical  grid.  For  the  sets  of  data  marked 
with  “B”,  the  function  was  transferred  to  a  grid  which  was  clustered  in  near  the  edges  -  as  found 
in  CFD  grids.  The  percentage  error  increased  about  8  orders  of  magnitude  between  these  two 
types  of  grids.  However,  these  errors  are  less  than  2%  of  the  maximum  function  amplitude  or 

magnitude  (most  are  less  than  1  x  10'^%).  One  concludes  that  there  is  a  relatively  low  sensitivity  to 
the  grid  spacing. 

As  an  example  of  a  characteristic  oscillation  in  the  interpolation  result.  Figure  11-32  shows  a 
typical  interpolation  error  plot  by  the  TPS  method.  Figures  1 1-32  a)  and  b)  show  the  reference  and 
the  interpolated  one-cycle  sinusoidal  function,  respectively.  In  Figures  11-32  c)  and  d),  very  small 
errors  concentrate  on  die  border  of  the  domain  that  vary  with  the  function  shape. 

Directional  Bias  -  Figure  11-30  includes  the  streamwise  (testla  -  11)  and  spanwise  (testla2  -  12) 
functions  examined  in  test  set  1.  The  errors  are  virtually  identical  for  both  function  directions, 
indicating  little  or  no  sensitivity. 

Magnitude/Amplitude  Sensitivity  -  The  TPS  method  appears  to  have  no  relative  sensitivity  to 
different  amplitudes  or  magnitudes,  as  shown  in  Figure  11-33.  This  trend  is  consistent  for 
function  type,  plates,  shells,  direction  of  the  function  and  grid  (test  sets  1  and  2).  This  trend 
indicates  that  the  percentage  error  (refer  to  Table  11.16)  does  not  change. 

Sensitivity  to  Frequency  (Higher  Oscillations)  -  The  TPS  method  is  moderately  sensitive  to  the 
frequency  of  the  function.  As  one  can  see  from  the  results  in  Tables  1 1.16  -  19,  the  errors  are 
very  low  for  constant  and  linearly  varying  functions.  Figures  11-30  and  11-31  also  indicate  this 
trend.  There  is  a  large  jump  in  error  when  a  sinusoidally  varying  function  is  introduced.  The 
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sinusoidal  functions  shown  in  Figures  1 1-30  and  11-31  have  one  cycle  over  the  surface.  When  the 
frequency  of  the  function  is  increased,  the  error  increases  rapidly.  Figure  11-34  shows  the  results 
for  the  test  set  1.  The  percentage  error  increases  from  5  to  1 1  orders  of  magnitude  as  the  frequency 
is  increased  to  three  cycles.  The  large  variation  in  error  does  not  occur  as  the  frequency  is 
increased  above  three  cycles.  At  this  point,  the  relative  error  has  increased  to  approximately  20% 
of  the  maximum  amplitude. 

Figure  11-35  illustrates  the  error  present  in  a  high-frequency  mode  interpolation.  Here,  the 
interpolation  result  for  a  three-cycle  sinusoid  is  plotted.  Notice  that  while  the  function  amplitude  is 
captured  along  the  surface  edges,  the  amplitude  prediction  has  slightly  degraded  along  the  interior 
of  the  grid.  The  oscillations  discussed  earlier,  and  plotted  for  a  one-cycle  sinusoidal  oscillation  in 
Figure  1 1-32  are  now  more  apparent.  These  oscillations  occur  in  both  directions,  showing  a  close 
coupling  of  the  error  in  both  of  them.  These  higher-order  oscillations  illustrate  the  impact  of 
interpolating  higher-order  mode  shapes  as  well  as  pressure  distributions. 

Fxtranolation  -  The  maximum  percentage  errors  for  test  sets  1  (interpolation)  and  3  (extrapolation) 
are  plotted  in  Figure  11-36.  TPS  preserves  its  performance  for  extrapolations  as  seen  by  the 
constant  errors  in  Figure  11-36.  There  is  basically  no  difference  between  the  interpolation 
(represented  by  "A")  and  extrapolation  (represented  by  "B")  for  the  linear  functions.  Sinusoidal 
functions  have  the  highest  overdl  errors,  which  is  consistent  with  its  results  for  interpolation. 

Diminishing  Variarinn  —  Figure  11-37  shows  that  the  interpolation  errors  do  not  vary  with 
increasing  grid  fineness,  indicating  that  the  TPS  scheme  is  consistent  for  each  function. 

Sensitivity  to  Three-Dimensional  Surfaces  (Plates  Vs.  Shells)  -  From  Figures  11-30  to  11-37,  the 
only  sensitivity  that  TPS  has  when  it  is  extended  from  two  to  three  dimensions  is  for  the  constant 
and  linear  functions.  The  sensitivities  due  to  sinusoidal  functions  do  not  change  to  any  sigrtificant 
degree. 

Sensitivity  to  Grid  Irregularities  -  For  the  irregular  grid  test  set  (test  set  2),  the  TPS  method 
performed  very  well  for  the  constant  and  linearly  varying  functions  («0.01%).  There  is  a  large 
jump  in  the  error  when  it  comes  to  the  sinusoid^  functions  (~20%),  as  one  can  see  from  Table 
1 1.17.  Franke  [1 1]  has  indicated  that  the  number  of  elements  which  define  the  original  grid  can  be 
a  factor  in  the  accuracy  of  such  a  method.  However,  considering  the  few  points  that  define  Ihe 
function,  the  results  are  still  very  satisfactory.  The  grid  here  is  very  sparse,  and  it  seems  likely  that 
this  causes  the  method  to  amplify  the  error  associated  with  those  rapidly  varying  functions. 
Therefore,  it  is  important  that  this  method  be  used  with  grids  that  have  enough  points  to  adequately 
identify  the  function  shape. 

Sensitivity  to  Suhdomaining  and  Overlapping  -  The  TPS  and  IPS  algorithms  ^e  almost  identical. 
The  difference  in  the  two  methods  ties  in  their  method  of  application.  IPS  applies  the  interpolation 
over  the  entire  surface,  resulting  in  a  very  large  CPU  memory  requirement  TPS  is  implemented 
using  a  local  subdomaining,  similar  to  that  implemented  for  MQ.  The  term  locd  means  that  the 
surface  is  subdivided  into  a  prescribed  number  of  subdomains.  The  points  within  the  subdomain 
are  influenced  only  by  the  other  points  within  the  subdomain.  The  advantage  of  subdomaining  is 
that  the  dimensions  of  the  arrays  within  the  computer  code  can  be  reduced,  thus  reducing  the 
overall  memory  requirements  of  the  code.  In  addition,  rapidly  varying  functions  can  be  more 
accurately  interpolated  by  limiting  the  zone  of  influence.  A  disadvantage  of  the  subdomain 
approach  is  that  two  additional  parameters  in  the  form  of  the  subdomain  divisions  and  overlap 
regions  are  introduced. 
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The  implementation  of  the  subdomain  concept  was  done  based  on  the  maximum  number  of  input 
points  in  each  direction  {x,  y,  and  z)  allowed  in  a  given  region.  This  approximately  defines  the  size 
of  the  local  linear  system  to  be  solved.  More  points  enter  in  the  region  through  the  overlapping 
areas  (which  was  varied  between  10%  to  30%  of  the  dimension  of  the  subdomain  in  each 
direction).  Most  cases  were  run  using  20  as  the  maximum  number  of  points  in  each  direction  and 
10%  overlapping.  This  gives  a  reasonable  number  of  sub-problems  to  be  solved,  and  samples  a 
good  portion  of  the  original  problem.  Reducing  the  number  of  points  in  either  the  subdomains  or 
tire  overlap  regions  wodd  increase  the  performance  of  the  code,  but  can  reduce  the  accuracy  of  the 
interpolation  if  an  insufficient  number  of  points  lie  in  one  or  more  subdomains. 

In  order  to  illustrate  the  change  in  the  accuracy  of  the  method  as  function  of  the  subdomaining  and 
scaling,  test  Ip  was  used  with  a  fixed  10%  overlapping  in  each  direction.  Since  its  input  grid  is  a 

50  X  10,  subdivisions  were  made  only  along  the  x-direction,  where  more  points  were  available. 
Figure  11-38  shows  the  error  of  the  solution  as  function  of  the  number  of  subdomains.  Two  sets 
of  data  were  included  to  show  the  effect  of  scaling  each  subdomain  to  a  unit  square.  It  is  apparent 
that  there  is  no  significant  difference  in  the  error  due  to  these  two  parameters. 

Sensitivity  to  Planar  Curves  (Beam-Like  Cases)  -  Tables  1 1.20  and  1 1.21  summarize  the  statistical 
results  obtained  from  TPS  when  interpolating  data  along  a  planar  curve.  The  method  performed 
very  well,  with  most  errors  «  1%.  Due  to  the  formulation  of  the  method,  the  minimum 
dimension  of  the  data  set  must  be  taken  into  account  when  posing  the  set  of  equations  to  be  solved. 
This  reduces  the  number  of  constraints  accordingly.  For  the  set  of  test  cases  studied,  there  were 
no  significant  differences  obtained  by  scaling  the  original  data. 

Algorithm  CPU  Memory  and  Time  Requirements  -  The  average  CPU  time  requirement  is 
approximately  1-3  ^conds  (refer  to  the  last  column  of  Tables  11.16  -  11. 21),  with  the  exception 
of  the  test  cases  that  had  very  large  errors,  indicative  of  ill-conditioned  matrices  for  the  higher- 
frequency  sinusoidal  functions.  These  mns  required  on  the  average  of  200  to  400  seconds.  AJ&  the 
cases  were  based  on  a  maximum  of  20  input  data  point  in  each  direction  of  the  subdomain  and  a 
10%  overlapping  of  the  subregions. 

The  algorithm  CPU  memory  requirement  can  be  determined  using  the  following  algorithm: 

CPU  SIZE  (mega  bytes)  =  0.3  -h  9.1374  x  10-4  KGS  -i-  1.0839  x  10-7  kGS^ 

3.0867  X  10-4  UKS  -h  8.0995  x  lO-^  UKS2 

where  KGS  is  the  total  number  of  points  for  the  grid  where  the  function  is  known  and  UKS  is  the 
total  number  of  mesh  points  for  the  grid  to  which  the  function  is  to  be  interpolated.  For  example, 
if  mode  shapes  are  to  be  interpolated  from  a  structural  mesh  to  a  CFD  mesh,  KGS  is  the  number  of 
mesh  points  for  the  structural  mesh,  and  UKS  is  the  number  of  surface  CFD  grid  points. 

The  influence  of  the  subdomaining  and  the  size  of  the  overlapping  in  the  memory  requirement  is 

shown  in  Figure  11-40.  The  data  is  based  on  150  x  150  input  grid  and  200  x  200  output  grid. 
There  is  a  drastic  reduction  in  the  amount  of  memory  required  when  the  subdomaining  technique  is 
used,  which  is  reflected  directly  in  the  CPU  time.  Figure  11-41  shows  the  actual  memory 
requirements  and  CPU  time  for  the  test  Ip  used  to  study  the  accuracy  of  subdomaining.  It  is 
apparent  that  the  main  advantages  of  subdomaining  is  the  decrease  in  the  overall  CPU  time  and 
memory  requirements. 
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□  Maximum  Error  A  =  Regular  Grid 

O  Average  Error  B  =  Clustered  Grid 


Test  Set  1 

Figure  1 1-30.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  Using 

Thin-Plate  Splines 


□  Maximum  Error  A  =  Regular  Grid 

O  Average  Error  B  =  Clustered  Grid 


Test  Set  1 

Figure  1 1-31.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Shells  Using 

Thin-Plate  Splines 
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Figure  11-32. 


c)  Orthogonal  View  of  the  Error 


Example  of  Oscillations  Induced  by  the  Thin-Plate  Spline  Method  (Test  11)  for 
One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 
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Magnitude/Amplitude 

Figure  11-33.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function  Using  Thin-Plate  Splines 


□  Maximum  Error  A  =  Plate/Shell,  Amplitude=1.0 
O  Average  Error  B  =  Plate/Shell,  Amplitude=.01 


Number  of  Cycles 

Figure  11-34.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal 
Cycles  on  the  Surface  Using  Thin-Plate  Splines 
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□  Extrapolated  Data  A  =  Constant/Linear  Combinations 

O  Interpolated  Data  B  =  Sinusoidal  Combinations 


Test  Sets  1  and  3 

Figure  1 1-36.  Variation  of  Error  for  Inte^olation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  Thin-Plate  Splines 


□  Maximum  Error  A  =  Linear/Constant  Combinations 

O  Average  Error  B  =  Sinusoidal  Combinations 


Test  Set  4 

Figure  1 1-37.  Variation  of  Error  for  Increasing  Grid  Fineness  (Test  Set  4)  Using  Thin-Plate 

Splines 
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□  Maximum  Error  A  =  without  scaling 

O  Average  Error  b  =  with  scaling 


Number  of  Subdomains 

Figure  1 1-38.  Variation  of  the  Maximum  Error  as  Functions  of  the  Number  of  Subdomains 
and  the  Presence  or  Absence  of  Scaling  for  the  Thin-Plate  Spline  Method  (Test  Ip) 


Number  of  Baseline  Grid  Points 

Figure  1 1-39.  CPU  Memory  Requirements  for  the  Thin-Plate  Spline  Method  as  Implemented 
with  10%  Overlapping  and  No  More  than  20  Points  Along  Each  Direction  of  the  Subdomain 
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Number  of  subdomains 

Figure  1 1-40.  Influence  of  the  Size  of  the  Overlapping  Region  and  the  Subdomaining  on  the 
Memory  Requirement  for  a  Hypothetical  Test  Case  (input  grid  =  150  x  150;  output  grid  =  200  x 

200)  for  the  Thin-Plate  Spline  Method 


Number  of  Subdomains 


Figure  11-41.  Influence  of  Subdomaining  on  the  Memory  Requirement  and  CPU  Time  for 

Thin-Plate  Spline  Method  (Test  Ip) 


Table  11.16  Statistical  Summary  of  Test  Set  1  using  Thin-Plate  Splines 


Test  Case 

Maximum  Error 

Average  Error 

Standard 

CPU  Time 

Absolute 

1  Location 

J  Location 

Absolute 

Deviation 

(Seconds) 

1.95E-14 

3.91E-13 

8 

7.83E-14 

4.94E-15 

1.01 

testib 

1.38E-14 

2.7SE-13 

9 

1 

2.75E-15 

5.51E-14 

4.66E-15 

1.3625 

testlc 

1.44E-14 

7.33E-13 

9 

1 

2.06E-15 

1.05E-13 

3.37E-15 

1.44625 

test  Id 

1.51E-14 

3.02E-13 

48 

1 

6.63E-14 

5.60E-15 

0.10625 

testle 

1.02E-06 

2.04E-05 

27 

1  0 

5.99E-06 

0.28875 

testif 

2.84E-02 

1.422 

36 

1  1 

9.49E-03 

0.46062 

test  1a 

1.87E-14 

3.73E-13 

1  4 

1 

6.34E-1S 

3.00E-04 

0.60031 

testih 

9.22E-07 

1.85E-05 

1  2 

1  1 

2.09E-07 

4.17E-06 

9.51E-06 

0.64516 

testli 

2.84E-02 

1.422 

1  5 

10 

6,7lE-03 

0.3363 

1.26E-02 

0.73109 

testli 

1.95E-14 

3.91E-13 

31 

1 

5.69E-15 

1.14E-13 

0.76641 

testik 

9,94E-07 

1.99E-05 

22 

5.04E-06 

1.26E-05 

0.87078 

testli 

2.84E-02 

1.431 

20 

15 

6.61E-03 

0.333 

1.10E-02 

0.86367 

testim 

1.28E-13 

2.56E-13 

1 

10 

2.67E-14 

5.33E-14 

1.11E-03 

2.57422 

testin 

3.11E-15 

3.05E-13 

2 

1  0 

7.06E-16 

6.92E-14 

1.11E-04 

2.59008 

testio 

3,82E-17 

1.91E-13 

8 

1 

9.07E-18 

4.54E-14 

1.12E-05 

2.59594 

0.1316 

6.597 

1 

2 

2.34E-02 

1.172 

4.08E-02 

9.78234 

testia 

0.3873 

19.37 

85 

4 

0.1211 

6.054 

0.2026 

12.4068 

testis 

1.32E-03 

6.597 

70 

2 

2.34E-04 

1.172 

9.54176 

testit 

3.87E-03 

19.37 

85 

17 

1.21E-03 

6.054 

2.03E-03 

12.14828 

testlal 

2.22E-16 

4.44E-13 

1 

1  0 

3.53E-17 

7.06E-14 

2.04E-04 

2.96539 

testib  1 

1.58E-16 

3.16E-13 

9 

1 

2.99E-17 

5.98E-14 

2.05E-0S 

2.96848 

test  Id 

2.21E-16 

4.48E-13 

1  0 

1  0 

5.50E-17 

1.12E-13 

2.06E-06 

2.97156 

testidl 

2.22E-16 

4.44E-13 

1 

20 

3.66E-17 

7.33E-14 

6.52E-08 

1.32582 

testlel 

6.02E-09 

1.21E-05 

1  1 

1.27E-09 

2.54E-06 

3.02E-09 

1.33215 

testif  1 

2.72E-04 

1.359 

12 

2 

4.53E-05 

0.2268 

8.60E-05 

1.34863 

testlal 

2.22E-16 

4.44E-13 

1 

1  6 

2.58E-17 

testih  1 

4.66E-09 

9.32E-06 

1  2 

1  1 

1.27E-09 

2.53E-06 

testm 

2.84E-04 

1.422 

1  5 

1  0 

6.71E-05 

0.3363 

1.26E-04 

1.37889 

testin 

2.22E-16 

4.44E-13 

1 

1  8 

5.32E-17 

1.06E-13 

3.97E-06 

1.38719 

testikl 

8.07E-09 

1.61E-05 

23 

1  5 

1.49E-09 

2.97E-06 

1 .26E-07 

1.40536 

testm 

2.84E-04 

1.431 

20 

1  5 

6.61  E-05 

0.333 

1.10E-04 

1.3936 

test1a2 

1.95E-14 

3.91E-13 

8 

1 

3.92E-15 

4.94E-15 

1.045 

test1b2 

1.95E-14 

3.91E-13 

9 

1 

6.36E-14 

5.25E-15 

1 .3675 

testlc2 

1.07E-14 

5.41E-13 

2 

1 

1.34E-13 

4.45E-15 

1.45 

test1d2 

1.51E-14 

3.02E-13 

48 

1 

3.32E-15 

6.63E-14 

5.60E-1S 

0.0275 

test1e2 

9.44E-07 

1.89E-05 

1  5 

17 

3.86E-07 

7.72E-06 

6.41  E-07 

0.26125 

test1f2 

2.64E-02 

1.322 

22 

1  6 

0.2849 

0.465 

test1a2 

1.87E-14 

3.73E-13 

14 

1 

6.34E-15 

1.27E-13 

test1h2 

9.48E-07 

1.90E-05 

38 

4 

2.51E-07 

5.02E-06 

4.40E-07 

0.405 

test1i2 

2.64E-02 

1.322 

29 

5 

5.70E-03 

0.2849 

1.07E-02 

0.13375 

testi  i2 

1,95E-14 

3.91E-13 

31 

1 

5.69E-15 

1.14E-13 

6.52E-15 

0.44 

1  1 

imsiina 

4.88E-07 

0.13812 

testi  12 

2.57E-02 

I  1.287 

1 _ 12 

9 

5.73E-03 

0.2873 

9.70E-03 

0.55 

1.28E-13 

1  0 

2.67E-14 

5.33E-14 

3.70E-14 

1.045 

testi  n2 

3.11E-15 

3.05E-13 

9 

1 

6.33E-16 

1.3425 

testi  o2 

2.43E-17 

1.21E-13 

1  0 

10 

6.61E-18 

3.90E-16 

1,4625 

testi  p2 

0.396 

19.87 

70 

2 

1  0.1058! 

5.31 

i  0.17931 

testlal  2 

2.22E-16 

4.44E-13 

1 

1  0 

7.06E-14 

1.025 

test1b12 

1.85E-16 

3.70E-13 

1 

10 

4.34E-17 

8.67E-14 

6.19E-17 

1.375 

test  Id  2 

3.73E-16 

7.58E-13 

1 

1  0 

8.98E-17 

1.55E-16 

1.48125 

testidl  2 

2.22E-16 

4.44E-13 

1 

20 

3.66E-17 

7.33E-14 

5.66E-17 

0.18125 

testi  el  2 

7.13E-09 

1.43E-05 

1  8 

17 

1.36E-09 

2.72E-06 

2.38E-09 

0.12687 

test1f12 

2.84E-04 

1.424 

48 

5 

4.59E-05 

0.2303 

8.60E-05 

0.31063 

testlal  2 

2.22E-16 

4.44E-13 

1 

16 

2.S8E-17 

5.15E-14 

testi  hi  2 

3.79E-09 

7.57E-06 

28 

16 

1.40E-09 

2.80E-06 

8.62E-08 

testi  i1 2 

2.64E-04 

1.322 

{■■■■Rn 

5 

5.70E-05 

0.2849 

1.07E-04 

0.60578 

testm  2 

2.22E-16 

4.44E-13 

1 

1  8 

5.32E-17 

1.06E-13 

3.37E-06 

0.68344 

testikl  2 

5,02E-09 

1.00E-05 

1  3 

1  0 

1.51E-09 

3.01  E-06 

1 .07E-07 

0.72055 

testi  112 

2.57E-04 

1.287 

1  2 

9 

5.73E-05 

0.2873 

9.70E-05 

0.76445 
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Table  11.16  Statistical  Summary  of  Test  Set  1  using  Thin-Plate  Splines  (Cont.) 


Table  11.16  Statistical  Summary  of  Test  Set 


1  using  Thin-Plate  Sp' 


Test  Case 

1  Maximum  Error 

Averaa 

e  Error 

Standard 

CPU  Time 

Absolute 

1  Location 

J  Location 

Absolute 

Percentage 

Deviation 

(Seconds) 

testlC2 

5.16E-06 

3 

7 

6.18E-06 

3.41  E-06 

1.5097 

test1  D2 

1.54E-06 

1.54E-05 

3 

7 

3.93E-07 

3.93E-06 

4.08E-07 

1.48383 

testi  E2 

2.84E-02 

0.3984 

20 

1  5 

6.61E-03 

9.27E-02 

1.5181 

0.3595 

39 

9 

5.73E-03 

8.02E-02 

5.74E*03 

1.5123 

1  test1G2 

1.03E-06 

4.24E-05 

35 

1  3 

1.29E-05 

1.82E-04 

1.53653 

0.7651 

1  2 

1.5607 

test  112 

0.1532 

3.538 

4 

20 

2.88E-02 

0.6646 

9.19479 

testi  J2 

0.223 

9.246 

45 

99 

1.04E-02 

0.4302 

1.22E-02 

260-87589 

ines  (Cont.) 


I 

I 

I 
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Table  1 1.17  Statistical  Summary  of  Test  Set  2  using  Thin-Plate  Splines 


Test  Case 

Maximum  Error 

Average  Error 

Standard 

CPU  Time 

Absolute 

I  Location 

J  Location 

Absolute 

Deviation 

(Seconds) 

test2A 

O.OOE+00 

0 

0 

O.OOE+00 

O.OOE+OO 

1.34 

2.00E-05 

1 

5 

2.00E-07 

1.00E-05 

1.61 

5 

9 

1.715 

1.33E-05 

3 

5 

2.46E-07 

1.785 

22.46 

8 

7 

0.1127 

5.722 

0.2013 

1.83125 

O.OOE+00 

8 

7 

O.OOE+00 

O.OOE+OO 

4.03E-03 

0.71625 

test2G 

5.24E-07 

2.62E-05 

44 

3 

2.64E-07 

1,32E-05 

8.05E-05 

1.23125 

tesl2H 

5.24E-07 

2.62E-05 

3 

27 

2.64E-07 

1.32E-05 

1.66E-06 

1.44531 

test21 

9.05E-07 

1.51E-05 

46 

1  9 

2.S2E-07 

4.20E-06 

4.21E-07 

1.54297 

test2L 

1.23E-09 

1.23E-05 

1  7 

21 

2.44E-10 

2.44E-06 

8.44E<09 

1.36E-05 

17 

32 

2.33E-10 

2.33E-06 

4.15E-10 

1.72609 

test2N 

4.47E-04 

22.52 

32 

29 

7.97E-05 

1.77344 

test2A1 

5.44E-07 

2.52E-05 

2 

2 

1.83E-07 

1.295 

test2B1 

5.49E-07 

2.7SE-05 

7 

8 

9.64E-06 

test2C1 

5.49E-07 

2.75E-05 

8 

7 

1.93E-07 

9.64E-06 

1 .95E-07 

test2D1 

9.75E-07 

1.63E-05 

3 

3 

2.32E-07 

3.87E-06 

2.34E-07 

1.81 

test2E1 

0.4423 

22.01 

8 

7 

0.1127 

5.61 

0.1133 

1.8275 

test2F1 

6.06E-07 

2.78E-05 

1  0 

7 

2.36E-07 

1.09E-05 

2.27E-03 

0.76625 

test2G1 

6.06E-07 

3.03E-05 

23 

1  6 

2.39E-07 

1.20E-05 

4.53E-05 

1.26656 

test2H1 

6.04E-07 

3.02E-05 

1  6 

23 

2.39E-07 

1.20E-05 

9.38E-07 

1.41875 

test2l1 

1.02E-06 

1.71E-05 

48 

1  8 

2.52E-07 

4.19E-06 

2.52E-07 

1.54141 

test2L1 

9.73E-08 

5.30E-05 

25 

28 

1.13E-09 

6.14E-07 

5.17E-09 

test2M1 

9.73E-08 

5.30E-05 

28 

26 

1.15E-09 

6.28E-07 

1.16E-09 

test2Nl 

4.47E-04 

0.2503 

32 

29 

7.97E-05 

4.46E-02 

9.19E-05 

1.774851 
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Table  11.18  Statistical  Summary  of  Test  Set  3  using  Thin-Plate  Splines 


test3l  2.294 

114.9 

test3J  4.631 

458.6 

test3Bl  0.4064 

11.66 

_ 1 

8 

test3D1  1.14E-06 

2.28E-05 

test3El  0.8592 

24.6 

test3G2 


test3H2 


test3l2 


test3J2 

test3A3 


test3B3 


test3D3 


lest3E3 


test3F3 


test3C4 


test3D4 


test3E4 


test3F4 

test3G4 


test3H4 


test3J4 

test3K4 


Absolute 


1.21E-06 


0.4117 


Maximum  Error 


I  Location 


2.41E-05 


11.811 


J  Location 


0.4146 


11.72 

1.06E-04 


test3H1 

0.4098 

25.55 

test3l1 

2.34 

112.4 

test3J1 

4.417 

374.8 

test3A2 

1.07E-06 

2.13E-0S 

test3B2 

0.4117 

11.81 

test3C2 

1.56E-06 

3.11E-05 

test3D2 

1.18E-06 

2.37E-05 

test3E2 

0.8659 

24.79 

test3F2 

0.4146 

11.85 

1.31E-06 


0.4146 


2.364 


4.631 

4.44E-16 


4.00E-07 


8.01  E-07 


0.7094 


4.44E-16 


1.12E-04 


113.5 


392.9 

2.22E-14 


2.00E-05 


1.34E-05 


36.02 


2.22E-14 


2.62E-05 


2.62E-05 


5.44E-07 


6.49E-07 


9.75E-07 


0.7094 


6.06E-07 

6.06E-07 


6.04E-07 


0.7094 

4.78E-08 


2.52E-05 


2.75E-05 


2.75E-05 


35.31 


2.78E»05 

3.03E-05 


3.02E-05 


1.70E-05 


34.71 

2.54E-05 


5.30E-05 


5.30E-05 


0.39681 


Average  Error 


Absolute 


3.09E-07 


5.42E-021 


I— 


Standard 


Deviation 


CPU  Time 


(Seconds) 


test3C 

1.39E-06 

2.78E-05 

2 

1  1 

3.94E-07 

7.88E-06 

4.33E-03 

0.3425 

test3D 

1.07E-06 

2.13E-05 

9 

4 

2.85E-07 

5.69E-06 

1.37E-04 

0.03125 

test3E 

0.8659 

24.79 

1 

7 

0.2354 

6.74 

0.5673 

0.23906 

3.70E-07 


9.44E-02 


0.2317 


3.62E-05 


6.264 


11.61 


6.50E-03 


2 

20 

0.2373 

6.794 

12 

9.59E-02 

2.742 

16 

3.62E-07 

3.09E-05 

0.6706 

11.07062 

1.215 

392.47632 

2.97E-07 

0.995 

0.302 

1.36 

9.56E-03 

0.4375 

3.02E-04 

0.04625 

0.3373 

0.11969 

0.3462 

0.30844 

9.59E-02 


0.2773 


0.5241 


9.59E>02 


2.618 


2.735 


0.46531 


12.43 


402.02594 


test3J3  0.7094 

35.72 

test3K3  1.04E-17 

1.04E-13 

2.86E-07 


0.2363 


9.44E-02 

3.74E-07 


0.2334 


0.4952 


1.40E-16 


2.00E-07 


5.72E-06 


6.764 


2.7 

3.19E-05 


11.21 


42.02 


6.99E-15 


1.00E-05 


9.23E-03 

0.27 

2.92E-04 

0.1225 

0.3374 

0.31094 

0.3363 
1 .06E-02 


2.598 


2.859 


3.37E-16 


0.4534 

0.47313 


11.16953 


393.88522 


1.35 


2.47E-07 


0.1419 


1 .04E-16 


4.12E-06 


7.206 


5.21E-15 


0.2426 


4.85E-03 


9.7lE-05i 


1.98E-06 


1.8425 


0.785 


1.23906 


1.45 


1.54E-05 

3 

1  test3M3  1  1.53E-09 

1.53E-05 

3 

1 

1  35.72 

50 

0.1848 

9.303  0.2717  1.655 

4.34E-18 

4.34E-14  5.44E-03  1.765 

1.09E-04 


1.83E-07 


1.93E>07 

1.93E-07 


2.35E-07 


0.1458 


2.36E-07 

2.39E-07 


8.49E-06 


9.64E>06 

9.65E-06 


3.92E-06 


7.259 


1.09E-05 

1.20E-05 


1 .84E-07 


1.95E-07 

1.95E-07 


2.32E-07 


0.5398 


1.08E-02 

2.16E-04 


1.34 


1.6 

1.695 


1.785 


1.8425 


0.81 

1.23156 


0.3957 

7.92E-03 


1.21E-09 

6.60E-07  1.58E-04  1.77594 

1.22E-09 

6.64E-07  3.17E-06  1.84289 

1.85E-04 

0.1035  3.57E-04  0.6075 
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Table  1 1.19  Statistical  Summary  of  Test  Set  4  using  Thin-Plate  Splines 


Maximum  Error  H 

Average  Error 

Standard 

■•jdlliif.Ml 

Absolute  1 

1  Location  |  J  Location  | 

Absolute 

Deviation 

(Seconds) 

2.28E-05 

1  1 

22 

4.28E-07 

6.S4E-07 

4.56 

2.86E-05 

28 

31 

4.38E-07 

8.76E-06 

25.14 

2.048 

38 

29 

2.48E-02 

0.7137 

34.11 

2.061 

76 

58 

2.51  E-02 

0.7222 

54.62 

1.57E-05 

129 

65 

47.15 

2.08E-05 

317 

46 

S.16E-07 

246.83 

2.63E-05 

121 

32 

4.67E-07 

9.34E-06 

6.32E-07 

46.92 

2.83E-05 

54 

70 

246.53 

2.063 

188 

59 

0.492 

2.062 

376 

0.4931 

tGSt4F2 

6.96E-02 

1.999 

87 

46 

test4F3 

7.15E-02 

2.058 

173 

69 

1.47E-02 

tGst4G2 

1.05E-06 

1.03E-04 

160 

48 

4.72E-07 

4.63E-05 

7.01  E-07 

47.02 

■lllLicLM 

1.02E-04 

380 

54 

4.76E-05 

246.34 

test4H2 

6.96E>02 

4.665 

87 

46 

1.45E-02 

0.9747 

2.68E-02 

339.17001 

test4H3 

7.15E-02 

4.812 

173 

69 

1.47E-02 

0.9903 

2.70E-02 

539.47998 

test4A1 2 

5 

100 

1 

1 

2.5 

50 

5.119 

iHunnHi 

5 

100 

1 

1 

2.5 

50 

5.111 

test4B12 

2.894 

83.25 

1 

40 

1.176 

33.83 

1.484 

36.67 

test4B1 3 

2.893 

83.17 

1 

80 

1.172 

33.69 

1.226 

59.03 

test  4C 12 

5 

100 

1 

80 

4.535 

90.71 

9.093 

5 

100 

1 

160 

4.537 

90.74 

9.095 

5 

1 

3.285 

65.71 

6.685 

427.48999 

I  test4D1 3 

5 

100 

1 

1 

3.287 

65.74 

6.686 

643.87 

83.13 

200 

1 

1.278 

36.72 

2.565 

740.91998 

83.08 

400 

1 

1.278 

36.71 

2.547 

83.1 

1 

80 

1.947 

2.026 

83.22 

1 

160 

1.948 

■■■KnRf 

80 

1.013 

84.1 

2.027 

364.22 

160 

1.013 

83.77 

2.027 

0.6545 

41.47 

192 

38 

0.4115 

26.07 

0.9345 

1  test4H13 

0.6577 

41.82 

385 

76 

0.4107 

26.11 

0.9301 

\  894.710021 
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Table  11.20  Statistical  Summary  of  Test  Set  5  using  Thin-Plate  Splines  without  Scaling  the  Data 
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Table  11.21  Statistical  Summary  of  Test  Set  5  using  Thin-Plate  Splines  and  Scaling  Data 


Test  Case 

Maximum  Error  I 

isiiuia 

I  Location 

J  Location 

■S19l!f!!!l!l 

testSa 

6,66E-16 

6.66E-14 

7 

1 

O.OOE+00 

O.OOE+OO 

2.00E-16 

1.371 

test5b 

2.78E-16 

2.78E-14 

9 

1 

O.OOE+OO 

O.OOE+OO 

L59E-16 

test5c 

8.33E-16 

8.33E-14 

5 

1 

1.39E-16 

1.39E-14 

7.85E-16 

test5d 

3.44E-15 

3.44E-13 

56 

1 

O.OOE+OO 

O.OOE+OO 

test5e 

1.55E-15 

1.55E-13 

57 

1 

O.OOE+OO 

O.OOE+OO 

5.86E-16 

1.431 

testSf 

1.13E-14 

1.13E-12 

58 

1 

O.OOE+OO 

O.OOE+OO 

1.34E-14 

testSg 

8.33E-05 

8.33E-03 

3 

1 

O.OOE+OO 

O.OOE+OO 

1.35E-05 

test5h 

2.68E-04 

2.68E-02 

8 

1 

4.44E-16 

4.44E-14 

1.02E-04 

1.08187 

test5i 

7.32E-04 

7.32E-02 

8 

6.66E-16 

6.66E-14 

3.24E-04 

1.20406 

testSi 

l.llE-15 

l.llE-12 

1 

1 

O.OOE+OO 

O.OOE+OO 

1.08E-04 

2.56094 

test5k 

4.86E-17 

4.86E-14 

2 

1 

O.OOE+OO 

O.OOE+OO 

3.60E-05 

2.53312 

test51 

5.55E-17 

5 

1 

O.OOE+OO 

O.OOE+OO 

1.20E-05 

2.57656 

2.85E-16 

2.85E-13 

62 

1 

O.OOE+OO 

O.OOE+OO 

1.21E-06 

2.11281 

4.37E-16 

4.37E-13 

63 

i 

O.OOE+OO 

O.OOE+OO 

1.21E-07 

2.13844 

1  test5o 

1.94E-16 

1.94E-13 

32 

1 

O.OOE+OO 

O.OOE+OO 

1.22E-08 

2.16406 

8.33E-06 

8.33E-03 

3 

1 

O.OOE+OO 

O.OOE+OO 

1.35E-06 

1.37594 

4.86E-17 

4.86E-14 

2 

1 

O.OOE+Ob 

O.OOE+OO 

4.49E-07 

2.71125 

test5r 

7.32E-05 

7.32E-02 

8 

1 

1.39E-17 

1.39E-14 

3.24E-05 

1.44594 

test5al 

1.78E-15 

1 

2.77156 

testSbl 

1.78E-15 

1 

1 

O.OOE+OO 

2.74281 

test5cl 

1.78E-15 

5.92E-14 

1 

1 

mmstm 

testSdl 

4.13E-14 

1.38E-12 

1 

6.01E-15 

testSel 

4.13E-14 

1.38E-12 

1 

1 

2.22E-16 

7.40E-15 

■D31IEIS 

testSfl 

4.04E-J4 

1.35E-12 

100 

1 

2.36359 

test5gl 

7.23E-02 

498 

1 

3.33E-14 

l.llE-12 

1.64E-04 

1.54984 

0.2422 

498 

1 

3.33E-14 

l.llE-12 

5.85E-04 

1.52922 

498 

1 

1.04E-13 

3.46E-12 

7.51E-04 

1.62016 

1 

3.47E-18 

1.16E-15 

2.50E-04 

2.94391 

■SSSH 

9.25E-14 

10 

1 

2.78E-17 

9.25E-15 

8.34E-05 

2.91469 

9.25E-14 

1 

1 

O.OOE+OO 

O.OOE+OO 

2.78E-05 

2.89609 

testSml 

2.55E-15 

8.51E-13 

100 

1 

3.25E-19 

1.08E-16 

2.79E-06 

2.48985 

testSnl 

2.55E-15 

8.51E-13 

1 

1 

2.53281 

testSol 

2.44E-15 

8.14E-13 

1 

1 

2.82E-08 

2.51516 

irnmmm 

1 

1.94E-15 

6.48E-13 

1.72203 

testSkl 

2.00E-15 

6.66E-13 

1 

1 

2.78E-17 

9.25E-15 

5.46E-06 

2.97242 

testSrl 

4.57E-04 

0.1524 

498 

1 

2.78E-16 

9.25E-14 

7.50E-05 

1.74609 
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11.5  Finite-Plate  Spline  Method 


The  Finite-Plate  Spline  (FPS)  method  is  a  finite-element  based  approach  where  a  virtual  mesh  is 
created  in  the  interface  between  the  input  and  output  grids.  The  me^od  tested  here  is  based  on  the 
formulation  presented  by  Appa  [14],  and  the  mathematical  details  are  presented  in  Chapter  8. 

The  implementation  of  FPS  was  based  the  two-dimensional  implementation  by  Dr.  Kari  Appa. 
Even  though  the  method  can  be  extended  to  three  dimensions  by  using  shell  elements  or  plate 
elements  in  space,  the  version  available  for  these  tests  is  restricted  to  two  dimensions.  Therefore, 
all  the  results  presented  herein  are  restricted  to  plate  cases.  FPS  is  implemented  so  that  the  virtual 
mesh  is  generated  automatically,  requiring  only  the  maximum  number  of  nodes  in  the  mesh.  The 
mesh  is  defined  by  the  aspect  ratio  of  the  geometric  domain,  and  does  not  consider  the  gradient  of 
the  function  along  each  direction.  For  a  square  grid,  the  same  number  of  elements  would  be 
assigned  to  both  directions.  In  order  to  better  use  the  limited  discretization  available,  the  virtual 
mesh  was  set  up  such  that  it  has  19  elements  in  one  direction  and  2  in  the  other.  The  finer 
discretization  was  used  along  the  direction  of  the  most  rapidly  varying  function. 

Overall  Accuracy  -  Statistical  summaries  of  the  FPS  results  are  presented  in  Tables  1 1.22  -  11 .25. 
The  overall  accuracy  of  FPS  is  very  good  for  the  test  cases  examined.  The  error  does  not  vary 
across  the  range  of  test  case  functions,  and  is  usually  less  than  1%  of  the  input  function  magnitude. 
The  largest  errors  occurred  in  the  sinusoidal  cases  with  high  number  of  cycles.  Figufes  1 1-42  and 
11-43  plot  the  errors  for  each  category  of  function  test  cases.  It  is  directly  observed  from  these 
plots  that  the  method  has  excellent  performance  for  constant,  linear  and  for  one-cycle  sinusoidal 
fonctions.  There  is,  however,  a  tendency  towards  higher  errors  for  the  high-frequency  sinusoidal 
fimctions.  For  the  majority  of  the  runs,  there  are  two  orders  of  magnitude  difference  between  the 
maximum  and  the  average  errors,  indicating  that  the  method  is  sensitive  to  particular  locations  on 
the  grid.  The  interpolation  errors  tend  to  be  the  highest  along  the  edges  of  the  surface,  as  shown  in 
Figure  11-44.  The  primary  disadvantage  of  this  method  is  its  high  CPU  time  and  memory 
requirements. 

Grid  Spacing  Sensitivity  -  Figure  1 1-42  indicates  that  the  sensitivity  of  the  FPS  method  to  grid 
spacing  is  invariant  with  the  function  to  be  interpolated.  The  “A”  runs  on  the  figure  indicate  that 
the  function  was  interpolated  to  an  identical  grid,  while  “B”  runs  indicate  interpolation  to  a 
clustered  grid.  The  error  increased  0.5  and  2  orders  of  magnitude  between  these  two  types  of 
grids,  with  the  maximum  errors  less  than  10%  of  the  fimction  magnitude. 

Virtual  Mesh  Sensitivity  -  As  discussed  previously,  FPS  requires  the  definition  of  a  virtual  mesh 
that  win  cover  the  interface  between  the  structural  and  the  aerodynamic  grids.  The  code  is 
designed  so  that  the  mesh  is  generated  automatically.  It  was  originally  designed  to  define  the  mesh 
based  on  the  aspect  ratio  of  the  geometric  domain,  without  considering  the  gradient  of  the  function 
along  each  direction.  So,  for  the  test  cases  that  have  unit  square  domains,  die  number  of  elements 
along  each  direction  was  the  same.  This  in  a  sense  is  a  misuse  of  the  virtual  surface.  In  order  to 
see  the  influence  of  increasing  the  number  of  elements  along  one  direction  while  keeping  the  total 
number  of  nodes  constant,  an  alternative  mesh  was  created.  The  number  of  elements  in  each 
direction  was  set  up  a  priori,  and  it  was  based  on  19  elements  along  the  highest  gradient  direction, 

and  only  2  elements  along  the  other  direction  (the  automatic  one  generates  a  6  x  6  mesh,  since  the 
maximum  number  of  elements  was  60).  Figure  11-43  indicates  that  the  sensitivity  of  FPS  to 
virtual  meshing  definition,  which  is  also  associated  with  the  function  to  be  interpolated.  For  all  of 
the  test  cases  plotted  in  these  figures,  the  data  are  similar  to  those  in  Figure  1 1-42.  The  difference 
here  is  that  the  function  variation  changes  directions  (test  cases  la2  -  12)  while  the  discretization  of 
the  virtual  mesh  stays  the  same.  The  error  increases  mainly  for  the  sinusoidal  functions,  as 
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expected,  indicating  that  the  method  is  sensitive  to  the  way  the  virtual  mesh  is  oriented.  For  future 
use  of  this  method,  special  attention  must  be  paid  to  the  issue  of  automated  mesh  generation. 

Din»r.tinna1  Bias  -  Figure  11-42  includes  the  streamwise  (testla- 11)  functions  examined  in  test  set 
1.  The  spanwise  (testla2  - 12)  functions  give  virtually  identical  results  when  the  virtual  mesh  is 
aligned  so  that  the  finer  mesh  is  along  Ae  variation  of  the  function.  This  indicates  little  or  no 
sensitivity  to  direction  of  the  function  when  the  proper  discretization  of  the  virtual  mesh  is  applied. 
This  is  important  since  the  orientation  of  the  surface  to  be  interfaced  is  not  known,  and  the 
dominant  function  (the  data  which  change  the  most)  can  be  located  in  either  direction  on  the 
surface. 

Magnitude/Amplitude  Sensitivity  -  FPS  appears  to  have  no  relative  sensitivity  to  different 
magnitudes,  as  shown  in  Figure  1 1-45.  This  trend  is  consistent  for  function  type,  plates,  direction 
of  Ae  function  and  grid  (test  sets  1  and  2). 

Seasitivitv  to  Frequency  (Higher  Oscillations')  -  FPS  is  sensitive  to  the  frequency  of  the  function. 
In  Tables  11.22  -  11.25,  the  errors  are  very  low  for  constant  and  linearly  varying  functions. 
Figures  11-42  and  1 1-43  substantiate  this  trend.  There  is  a  large  jump  in  error  when  a  sinusoidally- 
varying  function  is  introduced.  The  sinusoidal  fxmctions  shown  in  Figures  1 1-42  and  1 1-43  are  for 
one  cycle  over  the  surface.  When  the  frequency  of  the  sinusoidal  function  is  increased,  the  error  of 
the  FPS  interpolations  increases  quite  significantly.  Figure  11-46  shows  the  results  for  th^ 
higher-frequency  oscillations.  A  variation  of  3  orders  of  magnitude  is  seen  when  the  function 
increases  from  one  to  three  cycles,  and  another  order  of  magnitude  when  it  increases  from  thr^  to 
five  cycles.  However,  at  five  cycles,  the  relative  error  is  only  about  1%  of  the  maximum  amplitude 
(refer  to  Tables  11.22  and  11.23).  The  errors  remain  insignificant,  as  illustrated  in  Figure  11-47 
for  a  three-cycle  sinusoidal  function.  The  method  seems  to  be  quite  accurate,  and  the  final  impact 
of  the  error  increasing  is  not  too  dramatic. 

F.xtrapnlation  -  The  maximum  errors  for  test  sets  1  and  3  are  plotted  in  Figure  11-48,  illustrating 
that  FPS  preserves  its  performance  for  extrapolations.  There  is  a  maximum  one  order  of  magnitude 
difference  between  the  interpolation  (represented  by  "A")  and  extrapolation  (represented  by  "B") 
results,  as  confirmed  by  Table  1 1.24. 

Diminishing  Variation  -  Due  to  CPU  memory  limitations,  this  study  could  not  be  performed  with 
the  workstations  available  (see  Memory  Requirements  below). 

Sensitivity  to  Grid  Itregularities  -  For  the  irregular  grid  test  set  (test  set  2),  FPS  performed  very 
well  for  the  constant  and  linearly-varying  functions  («0.01%).  There  is  a  large  jump  in  the  error 
when  it  comes  to  the  sinusoidal  functions  (~20%)  as  seen  in  Table  1 1.23.  The  virtual  mesh  is  very 
sparse,  and  it  seems  likely  that  this  caused  the  error  to  increase  even  more.  Therefore,  it  is 
important  that  this  method  be  used  with  input  and  virtual  grids  that  have  enough  points  to 
adequately  identify  the  function  shape. 

Sensitivity  to  Planar  Curves  HBeam-Like  Cases')  —  Table  11.25  summarizes  the  statistical  results 
obtained  from  FPS  when  interpolating  data  along  a  planar  curve.  The  method  performed  well  and 
the  mayimnm  error  was  approximately  1%.  Since  the  method  is  based  on  a  two-dimensional 
formulation,  a  two-dimensional  virtual  mesh  was  created  that  encompassed  the  one-dimensional 
domain.  FPS  has  been  shown  previously  to  be  sensitive  to  the  virtual  mesh  definition.  The 
discretization  used  in  the  results  presented  on  Table  1 1.25  was  based  on  a  square  mesh,  with  flie 
same  dimensions  as  the  length  of  the  one-dimensional  domain. 

Algorithm  CPU  Memory  and  Time  Requirements  -  The  average  CPU  time  requirement  is 
approximately  20-80  seconds  (refer  to  the  last  column  of  Tables  11.22  through  11.25),  with  the 
exception  of  the  test  cases  which  had  very  large  errors,  indicative  of  ill-conditioned  matrices  for 
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some  of  the  sinusoidal  functions.  These  runs  required  on  the  average  of  500  seconds,  reaching 
convergence  at  the  end.  The  code  used  to  run  ^ese  cases  required  between  120  to  180MB  of 
memory. 

The  algorithm  CPU  memory  requirement  was  determined  by  varying  the  different  matrix  sizes  for 
the  known  and  unknown  function  grids,  keeping  the  maximum  number  of  elements  in  the  virtual 
mesh  fixed  to  60.  The  results  of  this  variation  are  shown  in  Figure  11-49.  The  results  were  curve 
fit  using  a  second  degree  polynomial  and  the  following  memory  algorithm  was  derived  : 

CPU  SIZE  (MBytes)  =  7.78  +  7.9509x10-5  kgS  +  4.5026x10-11  KGS2 
+  1.1590x10-4  UKS  -I-  8.0x10-11  UKS2 

where  KGS  is  the  total  number  of  grid  points  in  the  starting  or  known  function  grid  and  UKS  is 
the  total  number  of  grid  points  in  the  grid  to  be  interpolated  to.  This  function  yields  values  within 
1%  of  the  actual  CPU  size  during  testing.  As  one  can  see,  there  is  a  large  increase  in  the  memory 
requirement  when  one  goes  beyond  200  points  in  the  grid  to  be  interpolated.  This  mesh  size  is  stiU 
small  for  practical  purpose  applications  and  the  CPU  requirement  is  unacceptable  for  most  current 
workstations.  Besides  the  fact  that  this  method  is  a  finite-element  based  approach,  and  therefore  is 
well-known  for  high  memory  requirements,  the  set  of  routines  used  does  not  seem  to  take  full 
advantage  of  sparseness  in  certain  matrices. 
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Figure  1 1-42.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates 
(refined  mesh  along  the  varying  function)  Using  Finite-Plate  Splines 


□  Maximum  Error  A  =  Regular  Grid 

O  Average  Error  B  =  Clustered  Grid 


Figure  11-43.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  for  Plates  (crude 
mesh  along  the  varying  function)  Using  Finite-Plate  Splines 
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a)  Original  Function  b)  Interpolated  Function 


c)  Orthogonal  View  of  the  Error  d)  Error  Contours 


Figure  11-44.  Example  of  Oscillations  Induced  by  the  Finite-Plate  Spline  Method  (Test  11)  for 
a  One-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 
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- 1  A=  Constant  &  Linear,  Regular  Grid 

□  Maximum  Error  B=  1  Cycle  Sinusoid,  Regular  Grid 

O  Average  Error  C=  Constant  &  Linear,  Clustered  Grids 


Magnitude/Amplitude 

Figure  1 1-45.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Order  of  Magnitude  of  the 

Function 


□  Maximum  Error  A  =  Plate,  Amplitude=1.0 
O  Average  Error  B  =  Plate,  Amplitude=.01 


Number  of  Cycles 

Figure  1 1-46.  Variation  of  Error  for  Test  Set  One  Based  Upon  the  Number  of  Sinusoidal 
Cycles  on  the  Surface  Using  Finite-Plate  Splines 
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ooo. 


a)  Original  Function 


b)  Interpolated  Function 


c)  Orthogonal  View  of  Error 


X 

d)  Error  Contours 


Figure  1 1-47.  Example  of  Oscillations  Induced  by  the  Finite-Plate  Spline  Method  (Test  Ip)  for 
a  Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 
(X-axis  and  Y-axis  have  been  expanded  for  visibility) 


A  =  Constant/Linear  Combinations 
B  =  Sinusoidal  Combinations 


□  Extrapolated  Data 
O  Interpolated  Data 


Test  Sets  1  and  3 

Figure  1 1-48.  Variation  of  Error  for  Interpolation  (Test  Set  1)  and  Extrapolation  (Test  Set  3) 

Using  Finite-Plate  Splines 


CSM  Grid  Points 
CSD  Grid  Points 


Figure  1 1-49.  CPU  Memory  Requirements  for  the  Finite  Plate  Method  Implemented  with  a 
Maximum  of  60  Quadrilateral  Elements  in  the  Virtual  Mesh 
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Table  11.22  Statistical  Summary  of  Test  Set  1  using  Finite-Plate  Splines 


testin 

7.64E-06J 

7.49E-04 

_ 5j 

test1f2 

test1q2 

test1h2 

test1i2 


test  112 


test1k2 

test1l2 


test1o2 


testi  p2 
test1a12 


8.15E.07 

7.99E-05 

3.01E-05 

19.3714 

testi  o 

1.09E-07I 

5.43E-04 

1.07E-02 


1.82E-05 


1.07E-04 


3.80E-07 


3.80E-07i 


2.09E-07 

1.36E-07 


0.5355 


7.61E-04 


7.61E>04I 


4.17E-04 

2.76E-04 


4.80E-03 

0.2402 

8.11E-06 

4.07E-02 

4.80E>05 

0.2402 

testi  d1 

2.04E-06 

4.08E-03 

4.12E-08 

2.05E-08 


3.06E-08 


1.11E-07 


8.24E»05 

4,1lE-05 


6.21E-05 


2.22E-04 


8.86E-08 


8.86E>08 

4.50E-08 


5.20E-08 


2.90E-07 


22.285 


22.7 

21.12609 


21.1282 


83.64203 


9.41E.07 


9.74E-05 


2.31E-06 

1.36E-06 


9.71E-05 


0.1067 

2.11E-04 

2.36E-04 

0.1055 


3.49E-04 


1.40E-04 

0.1066 


1.18E-07 


1.975 

3.80E-07' 


testi  c1 2 

1.81E-03 

testi  d1 2 

2.04E-06 

testi  el  2 

1.48E-06 

test1f12 

1.06E-03 

testi  a1 2 

1.93E-06 

testi  h1 2 

1.74E-06 

1.06E-03 

test1i12 

2.31E-06 

testi  k1 2 

1.91E-06 

test1l12 

I^RST73iEII 

testi  A 

testi  B 

3.87E-03 


1.88E-03 


0.4862 


4.61E-03 

2.72E-03 


0.4889 


3.67 

5.20E-03 


5.334 

4.22E-03 

4.72E-03 

5.277 


6.96E-03 


2.79E-03 

5.345 


5.92E-04 


99.07 

7.61E>04' 

4.24E-04 


1.43E-05 

83.75861 

5.29E-07 

83.80688 

1.39E-05 


1.13E«07 

5.41E-08' 


1.32E-05 


6.96E-02 


2.26E-04 

1.08E-04 


6.64E-02 


2.46E-05 


6.36E-07 

1.60E-07' 


2.84E-05 


84.28174 


83.49365 

83.34625 


82.69879 


7.93E-06 

3.89E-02' 


1.12E-05 


8.53E-06 

4.42E-02' 


4.14E>05 

8.38E-07' 


1.36E-08 


1.209 

4.12E-08’ 


2.07E-08 


1.948 


1.59E-04 

1.946 


2.24E-04 


1.71E-04 

2.218 


6.27E-05 

8.22E-05 


6.81E-05 


60.67 

8.24E-05 


4.15E-05 


IBIIIIIIMIIIIIIII 


7.92E-05 

4.36E-02' 


1.38E-03 


4.93E>05 

6.89E-02' 


6.92E-03 

6.96E-04' 


6.99E-05 


1.798 

0.1807' 


1.82E-02 


82.95551 

83.03882 


82.35193 


82.14563 

82.11945 


19.40344 

19.27002 


19.31665 


557.70251 

16.91565 


18.97412 


3.87E-03 


3.49E-03 


5.279 

4.61E-03 

3.83E-03' 


5.344 


1.037 


3.44E-03 


4.42E-04 

2.218 

6.89E-04 

81.24243 

3.93E-06 

4.43E-02 


3.93E-05 

0.6353 


8.50E-06 

6.68E-02 


22.3 

20.8225 


0.1066 

9.63E-05~ 


1.524 

4.72E-03~ 


1.32E-0^ 


4.42E-02 

5.34E-06' 


1.89E-02I 


0.6326 

2.62E-04 


2.84E-03i 


6.89E>02 

2.18E-03' 


84.20889 


83.92169 

82.8642 
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Table  11.23  Statistical  Summary  of  Test  Set  2  using  Finite-Plate  Splines 


Test  Case 

1  Maximum  Error  * 

Averaoe  Error 

Standard 

CPU  Time 

Absolute 

1  Location 

J  Location 

Absolute 

Percentage 

Deviation 

(Seconds) 

test2A 

4.77E-07 

2.38E-05 

6 

4 

1.55E-07 

7.75E-06 

2.39E-07 

12.395 

4.47E-05 

3 

6 

2.65E-07 

4.61E-07 

3.43E-05 

3 

3 

2.24E-07 

1.12E-05 

3.65E-07 

10.73422 

4.20E-05 

5 

3 

4.48E-07 

7.47E-06 

9.04E-07 

10.57351 

21.34 

8 

8 

0.103 

5.231 

0.1767 

10.49516 

5.36E-05 

21 

1  0 

1.50E-07 

7.51  E-06 

2.60E-07 

63.3125 

test2G 

6.65E-05 

25 

3 

test2H 

1.26E-06 

6.29E-05 

23 

1  0 

4.36E-07 

test2l 

5.15E-05 

23 

10 

7.76E-07 

5.58E-05 

23 

1  0 

1  5.50E-06 

1.56E-08 

61.40564 

9 

36 

4.66E-10 

8.67E-10 

61.56732 

1  test2N 

4.51E-04 

22.7 

32 

30 

8.01E-05 

\  4.035 

1.32E-04 

61.59891 

Table  11.24  Statistical  Summary  of  Test  Set  3  using  Finite-Plate  Splines 


Test  Case 

Maximum  Error  1 

Averaae  Error 

Standard 

CPU  Time  | 

Absolute 

1  Location 

J  Locatbn 

Absolute  1  Percentage 

Deviation 

test3A 

5.18E-05 

1.04E-03 

2 

1  ol 

4.44E-06 

8.88E-05 

9.64E-06 

22.58 

test3B 

3.001 

86.13 

8 

1 

0.5506 

15.8 

0.9938 

21.10781 

1.83E-03 

26 

5 

1.03E-05 

3.14E-02 

83.59679 

test3D 

1.17E-04 

2.33E-03 

2 

7.74E-06 

9.95E-04 

83.60129 

0.7582 

1 

6 

0.1962 

5.616 

0.4878 

83.45741 

4.697 

134.3 

26 

1 

1.074 

30.7 

1.325 

4.29E-05 

26 

2 

4.55E-06 

4.46E-04 

4.19E-02 

82.64542 

4.697 

311.7 

26 

1 

1.074 

71.23 

1.325 

82.66898 

4.77E-05 

4 

1 

1.90E-07 

3.29E-07 

12.23 

3 

3 

2.78E-07 

1.39E-0S 

4.37E-07 

11.00344 

4.25E-05 

4 

2 

2.78E-07 

1.39E-05 

4.40E-07 

10.815 

3 

2 

5.39E-07 

8.98E-06 

1 .09E-06 

1  0 

9 

4.828 

0.1621 

1.19E-04 

2 

2 

I  3.02E-07 

1.51 E-05 

5.12E-07 

62.7775 

1.44E-04 

9 

3 

6.07E-07 

test3H3 

2.85E-06 

1.43E-04 

2 

2 

3.64E-07 

1.82E-05 

5.91E-07 

61.40768 

test3l3 

7.01  E-06 

1.17E-04 

2 

2 

6.89E-07 

1.15E-05 

1.19E-06 

61.31207 

test3J3 

0.4808 

24.21 

50 

38 

0.113 

5.69 

0.1604 

61.13815 

test3K3 

1.40E-08 

1.40E-04 

9 

3 

1.54E-09 

1.54E-0S 

3.21  E-03 

61.22037 

testSLS 

1.21E-08 

1.21E-04 

3 

4 

1.02E-09 

1.02E-05 

6.42E-05 

60.8923 

test3M3 

8.37E-09 

8.37E-06 

2 

45 

8.55E-10 

8.55E-06 

1.28E-06 

60.89447 

test3N3 

4.81  E-04 

24.21 

50 

38 

1.13E-04 

5.69 

1.60E-04 

60.89655 
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Table  11.25  Statistical  Summary  of  Test  Set  5  using  Finite-Plate  Splines 


Test  Case 

Maximum  Error 

Average  Error  | 

Standard 

isuiiia 

Absolute 

I  Location 

J  Location 

Deviation 

tests  a 

1.92E-07 

1.92E-05 

9 

_  1 

O.OOE+00 

O.OOE+00 

1.02E-07 

testSb 

1.87E-07 

1.87E-05 

6 

1 

O.OOE+00 

O.OOE+00 

6.89E-08 

testSc 

1.51E-07 

1.51E-05 

6 

1 

O.OOE+00 

O.OOE+OO 

6.62E-08 

1.31125 

testSd 

3.82E-05 

3.82E-03 

100 

1 

O.OOE+00 

O.OOE+00 

l,71E-05 

1.4375 

testSe 

1.15E-03 

0.1152 

50 

1 

1.14E-06 

1.14E-04 

6.97E-04 

1.16062 

0.6745 

47 

1 

1.20E-05 

1.20E-03 

4.05E-03 

0.99906 

9.89E-04 

9.89E-02 

1 

1 

5.36E-08 

5.36E-06 

1.82E-04 

11.41031 

testSh 

L38E-03 

0.1377 

246 

1 

7.56E-07 

7.56E-05 

7.13E-04 

11.15156 

testSi 

6.71E-03 

0.6711 

129 

1 

3.64E-06 

3.64E-04 

4.11E-03 

11.03109 

9.89E-04 

1 

1 

3.10E-10 

3.10E-07 

1.38E-03 

2.57547 

■■Ksisnii 

6 

1 

7.17E-10 

7.17E>07 

4.59E-04 

2.58086 

L66E-08 

1.66E-05 

6 

1 

4.84E-10 

4.84E-07 

1.53E-04 

2.58625 

3.81E-03 

100 

1 

1.30E-09 

1.30E-06 

1.55E-05 

0.27703 

0.1151 

50 

1 

1.04E-07 

1.04E-04 

6.98E-05 

0.25348 

1  testSo 

6.75E-04 

0.6745 

47 

1 

1.20E-06 

1.20E-03 

4.05E-04 

0.21836 

1 

1 

8.90E-10 

8.90E-07 

1.82E-05 

10.77246 

Mill  ii  1 

1 

1 

7.17E-10 

7.17E-07 

6.09E-06 

2.72566 

testSr 

6.71E-04 

0.6711 

129 

1 

L49E-09 

L49E-06 

4.11E-04 

10.7702 

testSal 

9.90E-05 

3.30E~03 

1 

1 

O.OOE+00 

O.OOE+OO 

1.38E-04 

2.76801 

testSbl 

1.33E-05 

6 

1 

O.OOE+00 

O.OOE+OO 

4.59E-05 

2-77074 

testScl 

8.95E-06 

6 

1 

O.OOE+00 

O.OOE+OO 

1.53E-05 

2-77348 

testSdl 

6.63E-05 

2.21E-03 

100 

1 

O.OOE+00 

O.OOE+OO 

2.77E-05 

0.10324 

testSel 

2.31E-03 

7.71E-02 

50 

1 

2.16E-06 

7.21E-05 

1.40E>03 

0,06816 

testSfl 

1.35E-.02 

0.4496 

47 

1 

2.61E-05 

8.70E-04 

8.10E-03 

0.06301 

testSgl 

6.63E-02 

1 

1 

2.91E-08 

9.69E-07 

3.64E-04 

10.64707 

testShl 

2.81E-03 

9.38E-02 

246 

1 

5.38E-06 

1.79E-04 

1.42E-03 

10.5285 

testSil 

L34E-02 

1 

3.46E-06 

1.15E-04 

8.21E-03 

10.54875 

testSj  1 

L99E-03 

0.663 

1 

1 

1.76E-10 

5.88E-08 

2.74E-03 

2.93037 

testSkl 

2.94E-08 

9.79E-06 

9 

1 

7.64E-10 

2.55E-07 

9.15E-04 

2.93173 

testSll 

2.98E-08 

9.95E-06 

6 

1 

3.74E-09 

1.25E-06 

3.05E-04 

2.93312 

testSml 

6.66E-06 

2.22E-03 

100 

1 

1.19E-08 

3.97E-06 

3.08E-05 

0.06477 

testSnl 

2.31E-04 

7.71E-02 

50 

1 

2.40E-07 

8.00E-05 

1.40E-04 

0.07231 

1.35E-03 

0.4496 

47 

1 

2.60E-06 

8.68E-04 

8.10E-04 

0.07985 

1.99E-04 

6.63E-02 

1 

1 

9.01E-09 

3.01E-06 

3.64E-05 

10.49214 

testSkl 

6.66E-06 

2.22E-03 

1 

1 

7.64E-10 

2.55E-07 

1.22E-05 

2.99696 

testSrl 

L34E-03 

0.4467 

129 

1 

1  L19E-08I  3.97E-06 

8.21E-04 

10.45093 
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11.6  Inverse  Isoparametric  Method 


The  inverse  isoparametric  method  was  implemented  by  Dr.  R.  Fithen  [15]  of  Wright  Laboratory, 
as  discussed  previously  in  Chapter  9.  This  methodology  is  a  two-dimensional  application,  so  that 
the  testing  was  constrained  by  the  following;  two-dimensional  surfaces  (plates),  regular  grids,  no 
extrapolation,  and  no  beam  element  implementation.  Therefore,  the  only  mathematical  tests  which 
could  be  performed  were  limited  to  portions  of  test  sets  1  and  4.  The  following  observations  were 
made  using  a  limited  test  set.  Following  any  extension  to  three-dimensions,  these  observations 
may  no  longer  be  valid. 

Overall  Accuracy  -  The  overall  accuracy  of  the  code  for  the  test  cases  which  were  examined  was 
very  good.  The  maximum  error  encountered  was  approximately  5%.  Most  of  the  errors  remained 
much  lower  than  1%,  as  shown  in  Tables  11.26  and  1 1.27.  The  method  had  no  problems  running 
any  of  Ae  two-dimensional  test  cases,  within  the  scope  previously  detailed. 

Grid  Spacing  Sensitivity  —  Figure  11-50  indicates  that  the  inverse  isoparametric  method  is  not 
sensitive  to  grid  spacing.  Where  the  function  was  transferred  to  the  identical  grid,  the  errors  were 
identically  0.0  and  were  not  plotted. 

Additionally,  the  interpolated  data  ate  shown  to  be  constant  along  the  direction  for  which  the 
function  is  also  constant  This  is  visually  depicted  in  Figure  11-51  which  is  a  typical  interpolation 
error  plot  by  the  inverse  isoparametric  method.  There  are  some  oscillations  in  the  direction  of  the 
function.  The  negative  impact  of  larger  oscillations  can  be  felt  for  interpolation  of  grid  deflections 
from  the  structural  to  the  aerodynamic  grid.  Oscillations  in  the  updated  surface  grid  of  a  wing  can 
result  in  non-physical  pressure  distributions,  and  can  cause  flow  separation  bubbles  or  transition  to 
turbulent  flow  where  laminar  flow  actually  occurs.  The  errors  for  the  inverse  isoparametric 
method  fluctuate  less  than  1%  of  the  overall  magnitude  for  these  runs,  and  thus  the  oscillations 
should  be  large  enough  to  impact  the  interpolation  in  the  manner  which  was  just  discussed. 

Directional  Bias  -  Figure  11-50  includes  the  streamwise  (testla  -  11)  and  spanwise  (testla2  -  12) 
functions  examined  in  test  set  1.  These  data  are  virtually  identical  for  both  directions,  indicating 
little  or  no  sensitivity  to  direction  of  the  function.  This  is  important  since  the  orientation  of  the 
surface  to  be  interfaced  is  not  known,  and  the  dominant  function  (the  data  which  change  the  most) 
can  be  located  in  either  direction  on  the  surface. 

Magnitude/Amplitude  Sensitivity  -  IIM  is  not  sensitive  to  the  amplitude  of  sinusoidal  functions. 
This  trend  is  consistent  for  function  type,  direction  of  the  function  and  grid.  This  trend  indicates 
that  the  percentage  error  (refer  to  Table  11.26)  does  not  change  with  an  increase  or  decrease  of 
function  amplitude  or  magnitude. 

Sensitivity  to  Frequency  (Higher  Oscillations!  -  The  inverse  isoparametric  method  is  relatively 
insensitive  to  the  frequency  of  the  function.  As  shown  in  Figure  11-52,  the  errors  are  fairly 
consistent  as  the  sinusoidal  function  is  increased  over  the  surface. 

The  interpolation  result  for  a  three-cycle  sinusoid  is  plotted  in  Figure  1 1-53.  The  error  trends  are 
similar  to  those  for  a  one-cycle  sinusoid,  as  plotted  in  Figure  11-51.  Some  very  small  oscillations 
which  are  less  than  1%  of  the  overall  amplitude  of  the  function  are  seen  in  Ae  direction  of  the 
varying  function.  Some  degradation  in  capturing  the  overall  peak  amplitudes  are  seen  in  Figures 
11-53  c)  and  d),  but  an  overall  smooth  function  is  generated,  as  depicted  in  Figure  11-53  b). 
Figure  11-53  d)  shows  that  the  errors  are  still  impervious  to  the  direction  where  the  function 
remains  constant 
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Diminishing  Variation  -  Figure  1 1-54  shows  that  the  error  does  not  vary  with  increasing  fineness, 
indicating  that  IIM  is  consistent  for  each  function. 

Algorithm  CPU  Memory  and  Time  Requirements  -  The  average  CPU  time  requirement  is 
approximately  1  second  (refer  to  the  last  column  of  Tables  1 1.26  and  1 1.27),  with  the  exception  of 
the  test  cases  which  had  very  large  grids  which  required  almost  60  seconds  (1  minute)  of  CPU 
time. 

The  algorithm  CPU  memory  requirement  can  be  computed  using  the  algorithm  : 

CPU  SIZE  (MBytes)  =  0.251  +  7.5958x10'^ KGS  +  3.2121xlO‘^^KGS 

-I-  8.7909xl0’^UKS  9.4938xl0'^^UKS 

where  KGS  is  the  total  number  of  input  grid  points  and  UKS  is  the  total  number  of  grid  points  for 
the  grid  to  be  interpolated  to.  The  impact  of  increasing  grid  sizes  can  be  seen  in  Figure  1 1-55. 

Single  Precision  -  The  inverse  isoparametric  method  was  implemented  in  double  precision. 
Because  of  the  nature  of  the  mathematical  algorithm,  single  precision  was  not  attempted. 
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Figure  1 1-50.  Variation  of  Error  for  Test  Set  One  Based  Upon  Function  Type  Using  the 
Inverse  Isoparametric  Method  (Regular  Grid  Errors  are  all  0.0  and  are  not  Plotted) 
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a)  Original  Function 


b)  Interpolated  Function 


c)  Orthogonal  View  of  the  Error 


0.0  0.2  0.4  0.6  0.8  1.0 

X 

d)  Error  Contours 

11-51.  Example  of  Oscillations  Induced  by  the  Inverse  Isoparametric  Method  (Test  1) 
for  a  Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 


A  =  Regular  Grid,  Chordwise  Function,  A  =  2.0  &  0.2 
B  =  Regular  Grid,  Spanwise  Function,  A=  2.0  &  0.2 
C  =  Clustered  Grid,  Chordwise  Function,  A  =  2.0 
D  =  Clustered  Grid,  Chordwise  Function,  A  =  0.2 


Number  of  Cycles 

Figure  1 1-52.  Variation  of  Error  for  Test  Set  One  Based  Upon  Number  of  Sinusoidal  Cycles 

Using  the  Inverse  Isoparametric  Method 
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a)  Original  Function 


b)  Interpolated  Function 


c)  Orthogonal  View  of  Error 


d)  Error  Contours 


Figure  1 1-53.  Example  of  Oscillations  Induced  by  the  Inverse  Isoparametric  Method  (Test  p) 
for  a  Three-Cycle  Sinusoidal  Function  at  a  Peak-to-Peak  Amplitude  of  2 
(X-axis  and  Y-axis  have  been  expanded  for  visibility) 
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A  =  Linear/Constant  Combinations 
B  =  Sinusoidal  Combinations 


Test  Set  4 

Figure  1 1-54.  Variation  of  Error  for  Test  Set  4  Based  Upon  Number  of  Sinusoidal  Cycles 

Using  the  Inverse  Isoparametric  Method 


NUMBER  OF  BASELINE  GRID  POINTS 
Figure  1 1-55.  CPU  Memory  Requirements  for  the  Inverse  Isoparametric  Method 
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Table  11.26  Statistical  Summary  of  Test  Set  1  using  Inverse  Isoparametric  Maooin 


Test  Case 

I  Absolute  I  Percentage  |  I  Location  |  J  Location 


O.OOE+00 


O.OOE+00 


O.OOE+00 


9.54E»07 

1.43E-06 


Maximum  Error 


I  Location 


O.OOE+00 


O.OOE+00 


O.OOE+00 


1.91E>05 

2.86E-05 


standard 

Deviation 


CPU  Time 
(Seconds) 


O.OOE+OOl 


O.OOE+00 


O.OOE+00 
O.OOE+OOl 


O.OOE+00 


O.OOE+00 


0.1181 


9.54E-07 


1.43E-06 


0.11591 


O.OOE+00 


O.OOE+00 


O.OOE+00 

3.56E-02 


0.1016 


2.14E-02 

3.56E-04 


1.02E-03 


5,922 


1.91E-05 


2.86E-05 


5.837 


O.OOE+00 


O.OOE+00 


O.OOE+00 

1.786 


5.08 


1.071 

1.786 


5.08 


testlu 

2.14E-04 

1.071 

testlal 

O.OOE+OO 

O.OOE+OO 

testi  b1 

O.OOE+OO 

O.OOE+OO 

lesticl 

O.OOE+OO 

O.OOE+OO 

testidl 

7.45E-09 

1.49E-05 

testi  el 

9.31E-09 

1.86E-05 

testi  q1 

7.45E-09 

1.49E-05 

testi  hi 

5.59E-09 

1,12E-05 

testi  i1 

1.18E-03 

5.922 

testi  i1 

7.45E-09 

1.49E-05 

testi  k1 

1.12E-08 

2.24E-05 

testi  11 

1.16E-03 

5.837 

testi  a2 

O.OOE+OO 

O.OOE+OO 

testi  b2 

O.OOE+OO 

O.OOE+OO 

test1c2 

O.OOE+OO 

O.OOE+OO 

testi  d2 

9.54E-07 

1.91E-05 

1.43E-06 

0.1115 


2.86E>05 

5.574 


testi  i2 

9.54E-07 

1.91E-05 

testi  k2 

9.54E-07 

1.91E-05 

testi  12 

0.1099 

5.509 

testi  m2 

O.OOE+OO 

O.OOE+OO 

testi  n2 

O.OOE+OO 

O.OOE+OO 

testi  o2 

O.OOE+OO 

O.OOE+OO 

testi  p2 

0.8539 

42.84 

testi  a2 

2.317 

116.3 

testi  r2 

2.657 

133.3 

test1s2 

8.54E-03 

42.84 

test1t2 

2.32E-02 

116.3 

testi  u2 

2.66E-02 

133.3 

O.OOE+00 


O.OOE+00 


O.OOE+OOl 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


1  O.OOE+00 


O.OOE+00 


O.OOE+OOl 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


9  O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


O.OOE+00 


0  OOE+OO 


9  O.OOE+00 
2  0. OOE+OO 


2  0. OOE+OO 


0. OOE+OO 
O.OOE+OO 


2  O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 

O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE  +  OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 

O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO  6.58E-07 


O.OOE+OO  7.1  IE-02 


7.12E-05 


5.83E-02 


5.85E-03 


5.88E-04 


5.91E-05 


2.44E-02 


4.59E-04 


6.76E-04 


5.71E-09 


O.OOE+OO  3.24E-09 

O.OOE+OO  7.94E-04 

O.OOE+OO  2.51  E-05 

7.11E-04 


7.12E-07 


5.83E-04 


O.OOE+OO 


O.OOE+OO 


O.OOE+OO 


2.69E-07 

7.37E-07 


4.34E-02 


2.08E-03 

6.59E-05 


6.44E-03 


6.47E-04 


6.50E-05 


O.OOE+OO 


O.OOE+OO 


1.49E-02 


2.27E-02 


Table  11.26  Statistical  Summary  of  Test  Set  1  using  Inverse  Isoparametric  Mapping  (Cont.) 


Absolute 


Maximum  Error 


I  Location 


testi  a12 

O.OOE+00  O.OOE+00 

1 

17 

testi  b1 2 

O.OOE+00  O.OOE+00 

1 

17 

Averaoe  Error 


J  Locatbn  I  Absolute  Percentage 


O.OOE+00 


Standard 

CPU  Time 

Deviation 

(Seconds) 

test1c12 


test1d12 


test1  e1 2 


test1f12 


test1a12 


test1h12 


test1i12 


test1i12 


test1k12 


test1l12 

test1bb2 


test1cc2 


test1dd2 

test1ee2 


test1ff2 


test1aa2 


test1  hh2 


O.OOE+00  O.OOE+OOl 


7.45E-09  1.49E-05I 


20 

8 

1.10E-03 

O.OOE+00 


O.OOE+OOl 


9.54E-07 

1.43E-06 


0,1182 


9.54E-07 


9.54E-07I 


5,508 

o~oo¥+oo 


O.OOE+00 


1.91E-05 

2.86E-05 


5.9221 


1.91E-051 


1.91E-05 


testi  ii2 

9.64E-07  1.91E-05 

testi  kk2  I 

1.43E-06  2.86E-05 

testi  mm2 

O.OOE+00  O.OOE+00 

30 

testi  nn2 

O.OOE+00  O.OOE+OO 

30 

test1rr2 

test1ss2 


Iest1tt2 


testi  uu2 


O.OOE-t-OOl 


2.14E-02 

3.56E-04 


1,02E-03l 


1.96E-04 


0,00E+00 
6 


1,071 

1.786 


5.081 


0.9806 


Percentage 


test4A2  1.00E-06 

2.00E-05 

test4A3  1.00E-06 

2.00E-05 

lest4B2 


test4B3 

test4C2 


5.89E-02 


5.94E-02 

1.00E-06 


1.696 


1.707 

2.00E-05 


test4D2  1  .OOE-06 

2.00E-05 

lest4D3  1.00E-06 

1 - 

2.00E-05 

test4E2  5.94E-02 

1.707 

188 

tesl4E3  5. 9 4 E- 02 

1.705 

305 

Table  11.27  Statistical  Summary  of  Test  Set  4  using  Inverse  Isoparametric  Mappin 


Maximum  Error 


5.44E-08 


1 .48E-02 


1.49E-02 


0.4296 

1,49E-02 

285.92001 

5.18E-06 

1 .18E-04 

331.03 

5.33E-06 

4.70E-07I  363.040011 

0.9901 

408.12 

1.005 

1 .49E-02I 

440.54001 

12.  DESCRIPTION  OF  THE  APPLICATIONS  TEST  CASES 


It  is  necessary  to  examine  the  performance  of  these  methods,  used  to  analyze  the  analytical  test 
cases  of  the  two  previous  chapters,  on  real  problems.  This  will  ensure  that  the  conclusions  that 
have  been  derived  from  the  analj^cal  examination  are  valid.  Several  applications  test  cases  have 
been  investigated.  These  applications  test  cases  are  described  in  the  following  sections. 

There  are  three  types  of  data  which  are  evaluated  within  the  applications  test  cases.  There  are  two 
methods  which  can  be  used  in  coupling  (loosely  or  tightly)  aerodynamic  and  structural 
methodologies.  First,  the  mode  shapes  or  influence  coefficients  can  be  interpolated  from  the 
structural  grid  to  the  aerodynamic  grid.  The  structural  equations  of  motion  are  Aen  solved  using 
the  larger  (usually)  aerodynamic  mesh.  The  advantage  of  this  method  is  that  the  loads  integration 
can  occur  directly  on  the  aerodynamic  mesh,  without  the  introduction  of  numerical  interpolation 
errors  in  the  rapidly  changing  pressure  data. 

The  other  aeroelastic  process  to  convert  the  aerodynamic  pressures  to  the  structural  mesh  points, 
solve  the  structural  equations  of  motion,  then  interpolate  the  deflections  back  to  the  aerodynamic 
grid.  This  has  the  advantage  that  for  most  cases,  the  structural  meshes  are  much  smaller  than  the 
aerodynamic  surface  grids  and  are  much  quicker  to  solve. 

For  these  applications  test  cases,  data  which  could  be  used  by  either  of  the  two  processes  was 
examined.  Mode  shape  data  was  interpolated  to  provide  deflection-like  information,  influence 
coefficients  were  interpolated  for  process  1,  and  loads  were  interpolated  and  integrated  for  the 
second  process.  The  results  of  these  test  cases  are  described  in  Chapter  13. 
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12.1  AGARD  445  Wing 


The  first  test  case  examined  is  the  interpolation  of  five  mode  shapes  of  the  AGARD  445  wing  [16]. 
This  test  case  represents  one  of  the  primary  types  of  configurations,  a  lifting-surface,  that  is 
analyzed  by  higher-order  tightly-coupled  aeroelastic  methods. 

The  wing  structure  is  represented  by  a  flat  plate  which  extends  from  the  wing  leading  to  trailing 
edges  and  from  the  wing  root  to  the  wing  tip.  This  case  involves  pure  interpolation  with  no 
extrapolation.  The  wing  is  a  lifting  surface  whose  motion  is  dominated  by  the  motion  in  the  z 
(Cartesian)  coordinate.  The  x  and  y  Cartesian  coordinate  motions  are  neglected. 

In  this  test  case,  the  structural  grid  is  a  regularly  spaced  mesh,  1 1  nodes  in  the  streamwise  direction 
and  31  nodes  in  the  spanwise  direction,  shown  in  Figure  12-1.  The  CFD  grid  encloses  the  actual 
wing  surface,  and  is  comprised  of  219  streamwise  (110  on  upper  and  lower  surfaces)  and  21 
spanwise  nodes.  The  grid  is  clustered  at  the  leading  and  trailing  edges,  as  seen  in  Figure  12-2.  In 
these  two  figures,  the  view  is  a  perspective  of  the  wing  which  correlates  with  the  mode  shape 
deflection  plots  described  in  the  following  paragraphs.  The  geometry  of  the  wing  is  from  left  to 
right  (leading  to  trailing  edge)  and  from  bottom  to  top  (root  to  tip). 

The  first  five  modes  of  the  wing  are  shown  graphically  in  Figures  12-3  through  12-7.  The  a)  plot 
of  each  figure  is  the  contour  of  the  mode  shapes.  Each  major  increment  of  deflection  is  delineated 
with  a  solid  line,  with  minor  contours  as  dashed  lines. 

The  b)  plot  of  each  figure  has  the  mode  shape  (times  a  unit  increment)  superiniposed  on  the  surface 
to  demonstrate  the  unit  deflection  of  the  surface.  In  order  to  provide  a  good  visual  perspective,  the 
z  Cartesian  coordinate  (direction  of  the  deflections)  has  been  expanded  with  respect  to  the  wing 
planform  {x  and  y  Cartesian  coordinates). 

For  each  plot,  the  wing  root  lies  along  the  abscissa  of  each  plot,  with  the  leading  edge  located  at 
0.0  and  the  trailing  edge  at  1.8.  The  ordinate  axis  is  the  spanwise  coordinate,  with  wing  root  ^ 
0.0  and  the  wing  tip  at  2.5.  The  undeflected  wing  is  outlined  by  the  surface  boundaries  and  is 
shown  in  perspective  at  the  same  scale  as  the  deflections. 
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□ - X 


I 


Figure  12-1.  AGARD  445  Wing  Structural  Grid  (Undeflected) 


Figure  12-2.  AGARD  445  Wing  Aerodynamic  Grid  (Undeflected) 
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a)  Structural  Grid  (Original)  Mode  Shape  1  Contours 


b)  Structural  Grid  (Original)  Mode  Shape  1  Deflection 
Figure  12-3.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  1 
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a)  Structural  Grid  (Original)  Mode  Shape  2  Contours 


b)  Structural  Grid  (Original)  Mode  Shape  2  Deflection 
Figure  12-4.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  2 
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a)  Structural  Grid  (Original)  Mode  Shape  3  Contours 


'1_X 


b)  Structural  Grid  (Original)  Mode  Shape  3  Deflection 
Figure  12-5.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  3 
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a)  Structural  Grid  (Original)  Mode  Shape  4  Contours 


Z 


b)  Structural  Grid  (Original)  Mode  Shape  4  Deflection 
Figure  12-6.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  4 
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a)  Structural  Grid  (Original)  Mode  Shape  5  Contours 


b)  Structural  Grid  (Original)  Mode  Shape  5  Deflection 
Figure  12-7.  AGARD  445  Wing  Structural  Grid  (Original)  Mode  Shape  5 
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12.2  Engine  Liner 

The  engine  liner  test  case  is  an  application  whose  importance  is  growing  as  the  problem  of  fatigue 
and  aging  aircraft  becomes  increasingly  an  issue.  This  particular  case  is  based  upon  an 
experimental  effort  [17]  to  determine  the  cause  of  flutter  in  an  engine  liner.  The  engine  liner  is 
surrounded  by  a  hostile  aerodynamic  environment.  The  inner  flow  of  the  liner  is  usually  very  fast 
(near  transonic  speeds)  and  is  comprised  of  the  high-temperature  exhaust  core  flow  from  the 
engine.  The  outer  side  of  the  liner  usually  has  ambient  or  bleed  air  flowing  over  it  at  different 
Mach  and  Reynolds  numbers  than  the  core  flow.  In  addition,  the  liner  dampers  can  trigger 
vortices.  (Note:  the  liner  dampers  were  NOT  modeled  during  either  the  experimental  or 
computational  analyses.) 

A  structural  model  was  developed  for  the  Uner  based  upon  a  series  of  small,  interconnecting 
panels.  The  structural  grid  is  shown  in  Figure  12-8.  It  was  comprised  of  97  nodes  in  the 
circumferential  direction  and  21  nodes  in  the  streamwise  direction. 

The  CFD  surface  grid,  shown  in  Figure  12-9,  was  algebraically  computed.  This  surface  has  75 
nodes  in  the  circumferential  direction  and  45  nodes  in  the  streamwise  direction,  clustered  at  the 
leading  and  trailing  edges  of  the  panel.  As  in  the  AGARD  445  wing  test  case,  this  test  case 
involves  pure  interpolation,  but  includes  all  three  Cartesian  coordinate  directions  of  motion. 

The  first  five  mode  shapes  were  deemed  to  be  the  primary  influence  in  the  motion  of  the  liner. 
These  mode  shapes  are  depicted  in  Figures  12-10  through  12-14.  Notice  that  the  "leading  edge"  of 
the  liner  is  clamped  (no  deflections),  while  the  "trailing  edge"  of  the  liner  is  permitted  to  move 
freely.  The  view  for  these  figures  is  from  the  “trailing  edge”  of  the  liner  looking  forward.  The 
liner  forms  a  slight  cone  with  the  smaller  radius  located  at  the  trailing  edge.  The  use  of  contours  is 
not  appropriate  due  to  the  nature  of  the  configuration.  The  asymmetry  of  the  structure, 
superimposed  with  the  mode  shapes,  makes  it  impossible  to  view  contours  along  the  entire  liner 
surface. 


Figure  12-8.  Structural  Grid  for  the  Engine  Liner  Applications  Test  Case. 
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12.3  Lifting-Body  Configuration 


Another  type  of  applications  test  case  is  the  lifting-body.  This  type  of  vehicle  is  becoming  ever 
more  popular  as  new  air/space  vehicles  are  developed.  Examples  of  these  types  of  vehicles  are  the 
space  shuttle,  intercontinental  ballistic  missiles  and  hypersonic  vehicles. 

A  generic  lifting-body  with  wings  was  examined.  This  vehicle  consists  of  separate  upper  and 
lower  wing  components,  as  well  as  a  fuselage  which  is  separated  along  the  wing  waterline,  all  of 
which  are  flexible  and  modeled  with  shell  elements.  This  type  of  configuration  is  typical  of  H-H 
grids  used  in  many  current  CFD  methodologies.  This  configuration  provided  an  opportunity  to 
observe  how  well  die  methods  performed  on  partial  surfaces  where  matching  data  is  critical.  (For 
example,  the  leading  and  trailing  edges  of  the  wing  should  match  identically.)  The  different 
components  of  the  vehicle  are  shown  in  Figures  12-15  and  12-16  for  the  structural  mesh  and  the 
CFD  grid,  respectively.  The  two  meshes  compare  as  follows: 


Structural 

CFD 

(ixj) 

(ixj) 

full  fuselage 

9x21 

109x51 

split  fuselage-upper 

109  X  23 

split  fuselage-lower 

109  X  29 

upper  wing 

7x6 

53x21 

lower  wing 

7x6 

53x21 

where  i  is  the  number  of  nodes  in  the  streamwise  direction,  and  j  is  the  number  of  nodes  in  the 
spanwise  direction. 

There  were  a  total  of  7  dominant  modes  for  this  model.  The  mode  shapes  which  were  analyzed  are 
shown  in  Figures  12-17  -  12-23  for  each  component.  The  modes  have  been  scaled  to  facilitate 
visualization. 
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a)  Fuselage  Grid 


b)  Wing  Structural  Grid 

Figure  12-15.  Generic  Hypersonic  Vehicle  Structural  Grid 
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Figure  12-16.  Generic  Hypersonic  Vehicle  Aerodynamic  Grid 
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12.4  F-16  Wing  and  Strake 

The  next  example  extends  the  capabilities  demonstrated  by  the  first  three  test  cases.  This  example 
examines  the  extrapolation  abilities  of  each  of  the  interpolation  methods.  The  structural  model  is  a 
flat  plate  which  models  an  F-16  wing  and  is  comprised  of  irregularly  spaced  nodes,  as  seen  in 
Figure  12-24.  The  aerodynamic  grid,  shown  by  Figure  12-25,  is  a  Aree-dimensiond  wing  with 
the  addition  of  a  strake  forward  of  the  leading  edge.  Extrapolation  is  required  for  the  strake  region, 
as  weU  as  the  leading  and  trailing  edges  of  the  wing.  The  strake  extrapolation  is  a  very  exacting 
example  of  a  fluid-structure  interface  problem. 

The  flat  plate  structural  model  for  the  wing  has  24  nodes  in  the  streamwise  direction,  and  17  nodes 
along  the  spanwise  direction.  The  aerodynamic  model  has  118  nodes  along  the  streamwise 
direction  (60  nodes  for  the  upper  and  lower  surfaces  each),  and  42  nodes  along  spanwise 
direction.  This  aerodynamic  wing  is  constructed  differently  than  the  previous  examples.  Here,  the 
example  is  taken  from  an  overset  grid.  The  streamwise  direction  curves  along  the  edge  of  die 
strake  and  around  the  wing  leading  edge  and  tip.  Thus,  the  nodes  are  very  highly  clustered  in  the 
region  of  the  strake  edge,  and  while  maintaining  continuity,  does  change  Cartesian  coordinate 
directions  dramatically. 

The  structural  model  consists  of  seven  mode  shapes  to  model  the  shape  of  the  wing.  These  seven 
mode  shapes  are  provide  as  Figures  12-26  through  12-32.  For  each  figure  the  wing  contours  are 
modeled  as  part  a),  while  the  deflections  are  modeled  as  part  b).  ScaUng  is  provided  so  that  the 
results  of  the  interpolations/extrapolations  can  be  directly  compared  by  overlaying  the  plots.  For 
the  deflections  in  part  b),  the  outline  of  the  undeflected  aerodynamic  wing/strake  is  provided  to 
show  the  large  extent  of  extrapolation  which  is  necessary.  Notice  that  there  is  a  control  surface 
modeled  as  part  of  the  wing.  The  control  surface  deflections  include  very  abrupt  changes  in  the 
mode  shape  in  both  directions  (streamwise  and  spanwise)  along  the  wing.  These  changes  are 
especially  noticeable  in  modes  3, 4, 5  and  7. 
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Figure  12-25.  F-16  Wing/Strake  Aerodynamic  Grid 
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12.5  F-16  Flexible  Wing  with  Rigid  Body 

The  final  applications  test  case  involves  an  F-16  flexible  wing  attached  to  a  rigid  body.  Unlike  all 
of  the  previous  test  cases,  the  wing  structure  is  predicted  using  influence  coefficients  rather  than 
mode  shapes.  In  addition,  this  applications  case  is  also  used  to  examine  the  capability  of  the 
interpolation  routines  to  integrate  loads  from  the  CFD  wing  to  the  structural  node  points. 

The  structure  of  the  wing  is  predicted  by  28  influence  coeffients  located  at  7  nodes  in  the  spanwise 
direction  and  4  nodes  in  the  streamwise  direction,  as  shown  in  Figure  12-33.  The  wing  is 
predicted  as  a  flat  plate  surface  -  that  is  the  influence  coefficients  are  taken  to  act  normal  to  the 
direction  of  the  undeflected  structural  surface. 

The  aerodynamic  grid  used  in  this  test  case  is  shown  in  Figure  12-34.  The  aerodynamic  grid  has 
107  points  wrapped  from  upper  trailing  edge  to  lower  trailing  edge,  with  53  points  on  each 
surface.  There  are  25  nodes  which  determine  the  shape  of  the  spanwise  surface  grid. 

Once  set  of  influence  coefficients  are  presented  in  this  report.  They  are  shown  as  contours  for  the 
structural  grid  in  Figure  12-35.  Pressure  contours  from  an  aerodynamic  run  is  provided  for 
comparison  with  the  final  loads  contours  in  Figure  12-36. 


176 


Figure  12-33.  F-16  Flexible  Wing  Structural  Mesh 


Figure  12-34.  F-16  Flexible  Wing  Aerodynamic  Surface  Grid 
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Figure  12-36.  F-16  Wing  Pressures 
(Plotted  on  Figure  12-34  Grid) 
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13.  RESULTS  OF  THE  APPLICATIONS  TEST  CASES 


This  chapter  describes  the  results  of  the  applications  test  cases  described  in  Chapter  12  to  which  the 
mathematical  formulations  were  applied.  It  was  not  possible  to  test  every  algorithm  discussed  in 
Chapters  4  through  9  to  each  applications  test  case.  This  was  due  to  the  nature  of  the  algorithm 
implementation  or  due  to  limitations  on  the  computational  workstations  used  in  this  study.  The 
limitations  are  duly  noted.  Each  section  within  this  chapter  follows  the  outline  of  the  previous 
chapter,  i.e.,  the  AGARD  445  Wing  test  case  is  described  in  Section  12.1  and  the  results  are 
discussed  in  Section  13.1,  etc.  All  of  the  plots  in  this  chapter  were  generated  using  the  identical 
scales  as  the  original  data  in  Chapter  12  so  that  direct  comparisons  can  be  made.  The  plots  for  each 
test  case  are  provided  at  the  end  of  the  appropriate  section. 


13.1  AGARD  445  Wing 

The  AGARD  445  wing  mode  shapes  were  interfaced  using  the  infinite-plate  spline  (IPS), 
multiquadrics  (MQ),  thin-plate  spline  (TPS),  and  non-unform  B-spline  (NUBS)  methods.  The 
inverse  isoparametric  method  (EM)  should  have  worked  for  this  case,  but  the  search  algorithm  did 
not  work  for  several  of  the  nodes.  The  (finite-plate  spline)  method  was  too  large  to  run  on  any  of 
the  workstations  applied  on  this  study. 

The  results  of  the  these  methods  are  given  in  Figures  13-1  to  13-5  for  the  infinite-plate  spline 
method.  Figures  13-6  to  13-10  for  the  multiquadrics  method.  Figures  13-11  to  13-15  for  the  thin- 
plate  spline  method  and  Figures  13-16  to  13-20  for  the  non-uniform  B-spline.  The  format  of  these 
plots  follow  the  format  described  in  Chapter  12,  for  Figures  12-3  to  12-8. 

The  primary  difference  in  the  prescribed  modes  and  the  interpolated  modes  is  the  outboard  shift  of 
the  zero  deflection  point  from  the  actual  root  line.  This  shift  is  characterized  by  the  zero  contour 
line  at  the  root.  It  is  particularly  noticeable  for  mode  shape  2.  The  "0"  contour  line  extends  to  the 
wing  root  from  the  wing  span.  None  of  the  interface  schemes  accurately  reproduces  this  contour 
line.  The  "0"  contour  always  ends  short  of  the  wing  root. 

Some  slight  oscillations  are  also  noticeable  in  the  oscillations,  particularly  near  the  tip  for  mode 
shape  four  and  near  the  trailing  edge  for  mode  shape  5.  The  infinite-plate  spline  metiiod  has  the 
most  obvious  oscillations,  while  Ae  thin-plate  spline  method  appears  to  do  the  most  accurate 
interpolation.  This  is  very  interesting  since  these  two  methods  are  based  upon  the  same  derivation. 
Therefore,  the  implementation  of  the  scheme  plays  an  important  role  in  the  accuracy. 


Table  13.1  Maximum  Deflections  For  the  AGARD  445  Wing  Mode  Shapes 


Mode  Shape 

Original 

Infinite-Plate  Spline 

NUBS 

TPS 

MQ 

1 

2.240 

2.240 

2.240 

2.240 

2.240 

2 

3.597 

3.597 

3.597 

3.597 

3.597 

3 

2.477 

2.453 

2.470 

2.462 

2.424 

4 

5.774 

5.774 

5.774 

5.774 

5.774 

5 

3.762 

3.762 

3.762 

3.762 

3.762 
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b)  Mode  Shape  Deflection 

Figure  13-1.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  1 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflection 

Figure  13-2.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  2 
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b)  Mode  Shape  Deflection 

Figure  13-3.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  3 
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b)  Mode  Shape  Deflection 

Figure  13-4.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  4 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflection 

Figure  13-5.  Infinite-Plate  Spline  Results  for  AGARD  445  Wing,  Mode  Shape  5 
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b)  Mode  Shape  Deflection 

Figure  13-6.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  1 
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b)  Mode  Shape  Deflection 

Figure  13-7.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  2 
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b)  Mode  Shape  Deflection 

Figure  13-8.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  3 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflection 

Figure  13-9.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  4 
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b)  Mode  Shape  Deflection 

Figure  13-10.  Multiquadrics  Results  for  AGARD  445  Wing,  Mode  Shape  5 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflection 

Figure  13-11.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  1 
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b)  Mode  Shape  Deflection 

Figure  13-12.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  2 
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b)  Mode  Shape  Deflection 

Figure  13-13.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  3 
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b)  Mode  Shape  Deflection 

Figure  13-14.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  4 
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b)  Mode  Shape  Deflection 

Figure  13-15.  Thin-Plate  Spline  Method  Results  for  AGARD  445  Wing,  Mode  Shape  5 
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Figure  13-16.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  1 
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Figure  13-17.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  2 
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Figure  13-19.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  4 
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Figure  13-20.  NUBS  Results  for  AGARD  445  Wing,  Mode  Shape  5 
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Figure  13-21.  Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  1 
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Figure  13-22. 


Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  2 
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Figure  13-23. 


Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  3 
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Figure  13-24. 


Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  4 
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Figure  13-25. 


Inverse  Isoparametric  Method  Results  for  AGARD  445  Wing,  Mode  Shape  5 
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13.2  Engine  Liner  Results 


The  engine  liner  mode  shapes  were  interpolated  using  the  IPS,  TPS  and  MQ  methods.  The 
remaining  methods  failed  for  this  particular  configuration  because  of  limitations  cited  in  the 
previous  chapters. 

The  results  of  the  interpolations  using  these  methods  are  given  in  Figures  13-26  to  13-30  for  the 
IPS  method,  Figures  13-31  to  13-35  for  the  MQ  method.  Figures  13-36  to  13-40  for  the  TPS 
method.  The  format  of  these  plots  follow  the  format  described  in  Chapter  12  for  the  engine  liner 
problem. 

The  IPS  method  did  not  work  for  the  engine  liner  configuration.  It  was  necessary  to  divide  the 
liner  into  four  separate  configurations,  run  them  separately,  then  recombine  the  results  to  form 
Figures  13-26  to  13-30.  Each  section  required  approximately  30  minutes  of  workstation  CPU  time 
to  complete  (MQ  and  TPS  required  less  dian  5  minutes  for  the  entire  liner).  If  half  or  the  full  liner 
is  run,  IPS  eventually  fails  with  matrix  solution  errors  after  one  hour  or  more.  As  seen  in  these 
figures,  the  interpolation  appears  to  be  excellent,  with  the  exception  of  the  break  points  in  the  liner. 
The  mis-matching  breakpoints  mean  that  the  integrity  of  the  endpoints  of  the  configuration  are  not 
being  maintained. 

It  is  evident  that  MQ  has  some  problems  with  the  engine  liner.  In  Figures  13-31  to  13-35,  the 
superimposed  mode  shapes  have  very  irregular  oscillations  at  the  top  and  bottom  of  the  engine 
liner.  When  the  multiquadrics  method  is  scaled  or  run  using  different  r  values,  the  problem  shifts 
slightly,  but  does  not  go  away.  The  interpolation  by  TPS  shows  excellent  results  IF  the  method  is 
scded.  The  mode  deflections  match  almost  identically  to  the  original  data.  For  the  unsealed  run, 
TPS  has  similar  problems  to  the  multiquadrics  methods. 


Table  13.2  Maximum  Deflections  For  the  Engine  Liner  Mode  Shapes 


Mode  Shape 

Original 

Thin-Plate  Spline 
(Unsealed) 

Thin-Plate  Spline 
(Scaled) 

Multiquadrics 

1 

5.737 

123.1 

5.713 

131.8 

2 

5.801 

82.75 

5.775 

27.06 

3 

5.797 

197. 

5.770 

84.25 

4 

5.611 

28.03 

5.670 

14.54 

5 

5.676 

26.65 

5.653 

157.3 

*  IPS  values  were  not  available 
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Figure  13-26.  Engine  Liner  Mode  Shape  1  Using  Infinite-Plate  Spline  Method 


Figure  13-27.  Engine  Liner  Mode  Shape  2  Using  Infmite-Plate  Spline  Method 
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Figure  13-28. 
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Figure  13-29. 
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Figure  13-39.  Engine  Liner  Mode  Shape  4  Using  Thin-Plate  Spline  Method  (Scaled) 
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13.3  Generic  Hypersonic  Vehicle  Results 

The  generic  hypersonic  vehicle  mode  shapes  were  interpolated  using  the  multiquadrics  (MQ), 
Infmite-Plate  Spline  (IPS)  and  Thin-Plate  Spline  (TPS)  methods.  The  remaining  methods  were 
excluded  because  of  previously  discussed  limitations  for  this  particular  configuration. 

The  results  of  the  these  methods  are  given  in  Figures  13-41  -  13-47  for  the  IPS  method.  Figures 
13-48  -  13-54  for  the  MQ  method,  and  Figures  13-55  -  13-61  for  the  TPS  method.  The  format  of 
these  plots  follow  the  format  described  in  Chapter  12,  for  the  generic  hypersonic  vehicle  problem 
(Section  12.3). 

From  the  statistical  summary  of  the  problem  in  Table  13.3,  it  appears  that  the  metho^  provide 
equivalent  results.  However,  a  comparison  of  the  results  in  the  figures  shows  that  IPS  introduces 
some  oscillations  into  the  results  that  are  not  present  originally  or  in  the  MQ  and  TPS  results. 

The  MQ  and  TPS  methods  give  excellent  results  IF  they  are  not  scaled.  Recall  that  the  engine  liner 
problem  of  Sections  12.2  and  13.2  required  that  the  multiquadrics  and  thin-plate  spline  methods  be 
scaled  in  order  to  provide  reasonable  results.  Here,  the  numerical  summary  (as  shown  in  Table 
13.3)  does  not  indicate  a  problem.  However,  Figure  13-62  shows  the  interpolation  of  mode  shape 
1  if  scaling  is  not  used.  Similar  results  are  obtained  on  the  remaining  six  mode  shapes  as  well.  It 
is  evident  that  an  additional  parameter  needs  to  be  added  to  the  statistical  summaries  to  check  for 
oscillatory  results. 


Table  13.3  Maximum  Deflections  For  the  Generic  Hypersonic  Mode  Si 

hape  1 

Component 

Original 

IPS 

TPS 

(Scaled  &  Unscziled) 

MQ 

(Scaled  & 
Unsealed) 

1.405 

44354 

1.415 

1.411 

1.490 

1.579 

1.491 

1.570 

Lx)wer  Wing 

1.490 

1.580 

1.491 

1.569 
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a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-41.  Interpolation  of  Generic  Hypersonic  Model  Mode  1  by  Infinite-Plate  Spline 

Method 
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a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-42.  Interpolation  of  Generic  Hypersonic  Model  Mode  2  by  Infinite-Plate  Spline 

Method 
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b)  Wing  Contours 

Figure  13-43.  Interpolation  of  Generic  Hypersonic  Model  Mode  3  by  Infinite-Plate  Spline 

Method 
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a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-44.  Interpolation  of  Generic  Hypersonic  Model  Mode  4  by  Infinite-Plate  Spline 

Method 
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b)  Wing  Contours 

Figure  13-45.  Interpolation  of  Generic  Hypersonic  Model  Mode  5  by  Infinite-Plate  Spline 

Method 
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a)  Fuselage  Contours 


b)  Wing  Contours 

Interpolation  of  Generic  Hypersonic  Model  Mode  6  by  Infinite-Plate  Spline 

Method 


a)  Fuselage  Contours 
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b)  Wing  Contours 

Figure  13-48.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  1  by  Multiquadrics 

with  Scaling 


a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-49.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  2  by  Multiquadrics 

with  Scaling 


a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-50.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  3  by  Multiquadrics 

with  Scaling 
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b)  Wing  Contours 

Figure  13-51.  Interpolation  of  Generic  H5rpersonic  Model  Mode  Shape  4  by  Multiquadrics 

with  Scaling 


225 


a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-52.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  5  by  Multiquadrics 

with  Scaling 


a)  Fuselage  Contours 


b)  Wing  Contours 

Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  6  by  Multiquadrics 
with  Scaling 


a)  Fuselage  Contours 
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b)  Wing  Contours 

Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  7  by  Multiquadrics 
with  Scaling 


a)  Fuselage  Contours 


b)  Wing  Contours 

Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  2  by  Thin-Plate  Spline 
Method  with  Scaling 


a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-57.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  3  by  Thin-Plate  Spline 

Method  with  Scaling 


a)  Fuselage  Contours 


b)  Wing  Contours 

Figure  13-58.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  4  by  Thin-Plate  Spline 

Method  with  Scaling 
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b)  Wing  Contours 

Figure  13-59.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  5  by  Thin-Plate  Spline 

Method  with  Scaling 


b)  Wing  Contours 

Figure  13-60.  Interpolation  of  Generic  Hypersonic  Model  Mode  Shape  6  by  Thin-Plate  Spline 

Method  with  Scaling 


13.4  F-16  Wing  and  Strake 


The  IPS  interpolation/extrapolation  yields  some  interesting  results,  as  shown  in  Figures  13-63  to 
13-69.  For  modes  1  and  2,  IPS  does  an  excellent  job  of  interpolation.  At  the  higher  modes  where 
the  motion  of  the  control  surface  is  evident,  IPS  has  some  minor  problems.  Tlie  interpolation  of 
the  modes  outboard  of  the  control  surface  are  somewhat  less  than  perfect.  The  concentration  of  the 
rapidly  changing  contours  around  the  control  surface  also  appears  to  shift  the  interpolation  of  the 
modes  aft.  This  is  particularly  evident  in  modes  3,  4,  5  and  7.  The  extrapolation  of  the  strake 
tends  to  be  regular.  The  IPS  method  seems  to  extrapolate  the  contours  linearly  toward  the  root, 
based  on  the  contours  directly  outboard.  The  control  surface  shape  is  continued  to  the  root  and  is 
shifted  forward.  This  forward  shift  is  directly  proportional  to  the  overall  chord  or  length  of  the 
strake. 

The  MQ  interpolation/extrapolation  results  are  shown  in  Figures  13-70  -  13-76.  For  all  of  the 
modes,  the  MQ  method  does  not  reach  the  full  amplitude  of  the  mode.  The  MQ  method  has  a 
tendency  for  this  application  to  spread  or  distort  the  modes,  as  distinctly  seen  by  comparing  the 
contours.  Because  of  this  shift,  large  amplitudes  near  the  edges  are  underpredicted,  and  the  area 
over  which  they  act  is  also  reduced.  Because  this  phenomenon  did  not  occur  for  the  previous, 
pure  interpolation  results,  this  spread  could  be  the  result  of  introducing  the  large  extrapolation  area 
of  the  str^e.  Extrapolation  onto  the  strake  takes  two  forms,  depending  on  die  orientation  of  the 
mode.  For  modes  which  end  almost  perpendicular  to  the  structure  wing  root,  the  mode  contour  is 
extended  to  the  strake  root,  and  is  shifted  slighdy  forward.  This  forward  shift  is  much  smaller 
than  that  observed  when  using  IPS.  For  mode  contours  which  lie  in  a  near-parallel  orientation  to 
the  root,  MQ  does  not  extend  the  mode  onto  the  strake.  Thus,  the  zero  deflections  noted  in  modes 
1, 2  and  3  at  the  wing  root  are  extrapolated  as  zero  or  near-zero  deflections  onto  the  strake. 

The  TPS  interpolation/extrapolation  results  are  shown  in  Figures  13-77  -  13-83.  It  is  evident  by 
comparing  these  results  with  the  MQ  and  IPS  results  that  the  TPS  results  are  a  combination  of  the 
MQ  and  IPS  results.  That  is,  the  extrapolation  characteristics  seen  in  the  IPS  results  are  almost 
duplicated  here.  In  addition,  the  spreading  or  shift  of  the  mode  contours  exhibited  by  MQ  is  also 
reproduced  here. 

Thus,  it  appears  that,  for  reproduction  of  the  mode  shapes,  the  IPS  method  does  a  much  more 
accurate  interpolation  that  does  MQ  and  TPS  on  the  given  wing  surface.  However,  if  the  strake 
should  have  zero  or  near-zero  deflections,  MQ  does  the  best  extrapolation  onto  the  strake. 
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b)  Mode  Shape  Deflections 

Figure  13-63.  F-16  Wing  and  Strake  Mode  Shape  1  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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a)  Mode  Shape  Contours 

z 


b)  Mode  Shape  Deflections 

Figure  13-64.  F-16  Wing  and  Strake  Mode  Shape  2  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-65.  F-16  Wing  and  Strake  Mode  Shape  3  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-66.  F-16  Wing  and  Strake  Mode  Shape  4  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-67.  F-16  Wing  and  Strake  Mode  Shape  5  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflections 

Figure  13-68.  F-16  Wing  and  Strake  Mode  Shape  6  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-69.  F-16  Wing  and  Strake  Mode  Shape  7  Interpolations  Using  the  Infinite  Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-71.  F-16  Wing  and  Strake  Mode  Shape  2  Interpolations  Using  the  Multiquadrics 

Method 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflections 

Figure  13-72.  F-16  Wing  and  Strake  Mode  Shape  3  Interpolations  Using  the  Multiquadrics 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-73.  F-16  Wing  and  Strake  Mode  Shape  4  Interpolations  Using  the  Multiquadrics 

Method 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflections 

Figure  13-75.  F-16  Wing  and  Strake  Mode  Shape  6  Interpolations  Using  the  Multiquadrics 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-76.  F-16  Wing  and  Strake  Mode  Shape  7  Interpolations  Using  the  Multiquadrics 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-77.  F-16  Wing  and  Strake  Mode  Shape  1  Interpolations  Using  the  Thin-Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-78.  F-16  Wing  and  Strake  Mode  Shape  2  Interpolations  Using  the  Thin-Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-79.  F-16  Wing  and  Strake  Mode  Shape  3  Interpolations  Using  the  Thin-Plate  Spline 

Method 
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a)  Mode  Shape  Contours 


b)  Mode  Shape  Deflections 

Figure  13-80.  F-16  Wing  and  Strake  Mode  Shape  4  Interpolations  Using  the  Thin-Plate  Spline 

Method 
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250 


b)  Mode  Shape  Deflections 

Figure  13-81.  F-16  Wing  and  Strake  Mode  Shape  5  Interpolations  Using  the  Thin-Plate  Spline 

Method 
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b)  Mode  Shape  Deflections 

Figure  13-83.  F-16  Wing  and  Strake  Mode  Shape  7  Interpolations  Using  the  Thin-Plate  Spline 

Method 
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13.5  F-16  Flexible  Wing  with  Rigid  Body 

The  F-16  flexible  wing  was  examined  independently  of  its  rigid  body.  There  was  no  structural 
information  for  the  body.  The  influence  coefficient  interpolations  are  shown  in  Figures  13-84  - 
13-87  for  the  IPS,  MQ  and  TPS  methods,  respectively. 

The  F-16  loads  computation  was  perfomed  using  integration  of  the  pressures  from  the 
aerodynamic  grid  to  the  structural  grid.  These  load  computations  are  shown  in  Figures  13-88  and 
13-89  for  MQ  and  TPS. 

The  problem  of  transforming  concentrated  loads  from  one  mesh  to  another  can  be  based  on  the 
criteria  of  conservation  of  virtual  work  done  by  a  set  of  applied  loads.  If  Fa  represents  a  column 
matrix  of  given  concentrated  loads  at  a  set  of  points  Pa,  the  virtual  work  done  by  this  set  of  loads  is 
given  by 


6W  =  Fs^5ua 

where  5ua  is  compatible  virtual  discretized  displacement  field  corresponding  to  the  set  of  points  Pa. 

Consider  now  a  second  set  of  points  Ps,  not  necessarily  coincident  with  the  first  one.  It  is  possible 
to  define  an  equivalent  set  of  concentrated  loads  on  this  second  set  such  that  the  virtual  work  is  the 
same.  This  condition  will  guarantee  the  preservation  of  total  force  and  moment  about  any  point  on 
the  system.  If  Fs  is  the  set  of  concentrated  forces  on  the  set  of  points  Ps  that  is  equivalent  to  Fa, 
then 


fJ  5us  =  fJ  5ua 

where  5us  is  a  compatible  virtual  discretized  displacement  field  corresponding  to  the  set  of  points 
Ps. 

To  interpolate  the  displacement  field  between  the  two  set  of  points : 

Us  =  T  Ua 

where  T  is  the  transformation  matrix  relating  the  two  displacement  sets.  Since  the  virtual 
displacement  fields  have  to  be  compatible,  they  also  have  to  follow  the  same  transformation. 
Therefore 


Sug  =  T  5ua 


Using  this  relation  in  the  expression  of  the  equivalence  of  virtual  work,  one  gets 


Fs^T  5ua=Fa^5ua 
and 

Fs^  T  =  fJ 
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Finally,  the  relation  between  the  two  sets  of  forces  satisfying  conservation  of  total  force  and 
moment  is  given  by 

Fa=TTFs 

In  standard  finite  element  formulation,  there  is  the  problem  of  concentrated  loads  not  applied  at 
nodes.  A  way  to  handle  the  problem  is  by  interpolating  those  loads  to  certain  nodals  points  by 
means  of  a  consistent  nodal  load  transformation.  This  is  basically  the  method  described  in  the 
previous  section.  In  order  to  put  that  within  the  finite  element  context,  let  us  consider  the  niatm  N 
as  being  the  matrix  of  shape  functions  (local  interpolation  functions  for  the  displacement  within  an 
element).  Following  direcdy  from  the  general  procedure  outlined  before,  if  Q  is  the  concentrated 
force  at  a  point  P  within  an  element  that  is  not  one  of  its  nodes,  then 

F„  =  nT|pQ 

With  Fn  being  the  equivalent  transformed  nodal  loads. 


260 


30 


35 


40 


Figure  13-85.  F-16  Wing  Structural  Influence  Coefficie 
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Figure  13-86.  F-16  Wing  Structural  Influence  Coefficients  Using  Thin-Plate  Splines 
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Figure  13-87.  F-16  Wing  Loads 


14.  CONCLUSIONS 


From  this  study,  the  six  methods  which  were  investigated  were  graded,  based  upon  each 
characteristic  examined.  These  grades  are  shown  in  Table  14.1. 

The  methods  were  then  applied  to  realistic  applications  cases  which  are  current  problems  being 
investigated  by  CFD  or  aeroelastic  methodologies.  From  these  cases,  some  additional  limitations 
and  observed  were  established,  as  shown  in  Table  14.2. 

Based  on  the  conclusions  drawn  from  both  sets  of  test  cases,  the  methods  can  be  ranked  in  the 
following  order: 


Three-Dimensional  Schemes 
Thin-Plate  SpUnes  (TPS) 

Multiquachics  (MQ) 

Infinite-Plate  Splines  (IPS) 

Non-Uniform  B-Splines  (NUBS) 

Two-Dimen.sional  Schemes 
Inverse  Isoparametric  Mapping  (EM) 

Finite-Plate  Splines  (FPS) 

For  workstation  applications,  it  is  recommended  that  Thin-Plate  Splines  be  used.  This  method  is 
the  most  accurate,  robust  and  cost-efficient  of  aU  of  the  methods  tested.  It  is  recommended  that 
Finite-Plate  Splines  only  be  used  on  Supercomputers  or  Massively  Parallel  Computers  because  of 
its  large  memory  requirements  to  obtain  accurate  interpolations.  Multiquadrics  can  be  applied  as 
long  as  the  grids  are  single-valued  in  at  least  two  directions.  The  Infinite-Plate  Spline  is 
recommended  only  for  lifting  surface  applications,  preferrably  with  the  little  to  no  extrapolation 
required. 

Further  research  is  recommended  for  the  Non-Uniform  B-Sphne  and  Inverse  Isoparametric 
Mapping  Methods.  This  methods  performed  very  well  for  limited  cases,  but  need  expanding  and 
upgrading  to  provide  robust  application  to  a  wide  variety  of  configurations.  These 
recommendations  are  outlined  in  the  following  Chapter. 

Application  of  these  methods  will  vary  by  configuration.  Therefore,  it  is  recommended  that  several 
methods  be  available  if  many  different  configurations  are  to  be  analyzed  within  one  software 
package. 


Table  14.1  Evaluation  of  the  Algorithm  Performance  Using  the  Analytical  Test  Cases 


IPS 

MQ 

NUBS 

TPS 

FPS* 

IIM* 

Overall  Accuracy 

B- 

A 

B 

A 

A- 

A 

Robustness 

C 

A 

B 

A 

A 

B 

Ease  of  Use  (User  Friendliness) 

A 

B 

A 

B 

A 

A 

Grid  Insensitivity 

A- 

A 

B 

A 

A 

B 

Insensitvity  to  Directional  Bias 

A 

A 

A 

A 

A 

A 

Magnitude/ AmpUtude  Sensitivity 

B 

A 

Hi 

A 

A 

A 

Sensitivity  to  Rapid  Varying 
Functions 

C 

B 

B 

B 

B 

A 

Extrapolation 

C 

A 

A 

A 

A 

N/A 

Diminishing  Variation 

Hi 

■■ 

A 

A 

N/A 

HI 

Sensitivity  to  3-D  Surfaces 

B 

A 

B 

A 

N/A 

N/A 

Application  to  Unstructured  or 
Irregular  Grids 

B 

A 

A 

A 

A 

N/A 

Computer  Memory 

C 

B 

B 

B 

F 

A 

Computer  Time 

C 

B 

A 

B 

A 

A 

*  Two-Dimensional  Formulation 


265 


Table  14.2  Limitations  on  Methodologies,  As  Noted  During  the  Applications  Test  Cases 


Method 

Limitations 

IPS 

IPS  is  extremely  slow  compared  with  the  other  methods.  It  is 
also  not  as  accurate  as  some  of  the  other  methods.  IPS  requires 
that  all  three  coordinate  directions  have  single- valued  grids.  This 
requires  the  user  to  partition  the  configuration  accordingly.  IPS 
has  some  problems  with  oscillations  in  the  interpolated  functions. 

MQ 

MQ  may  require  scaled  or  unsealed  interpolations.  The 
correlation  appears  to  be  that  scaled  operations  are  necessary 
when  the  grid  scales  vary  widely  from  the  function  data  scales.  In 
addition,  MQ  has  required  for  Aese  applications  test  cases  that  at 
least  two  of  the  three  Cartesian  coordinate  directions  for  the  grid 
be  single-valued.  MQ  works  very  accurately  for  small 
extrapolation  areas,  but  distorts  the  overall  function  when  large 
extrapolation  areas  are  required. 

NUBS 

NUBS  has  some  problems  with  its  correlation  of  the  aerodynamic 
grid  points  with  die  structural  mesh  points.  This  problem  is  due 
to  non-DT_NURBS  routines,  and  may  be  alleviated  with  the 
introduction  of  more  accurate  algorithms.  This  inaccuracy  results 
in  oscillations  in  the  function  contours  and  failures  on  some  grids. 

TPS 

TPS  may  require  scaled  or  unsealed  interpolations.  The 
correlation  appears  to  be  that  scaled  operations  are  necessary 
when  the  grid  scales  vary  widely  from  Ae  function  data  scales. 
MQ  works  very  accurately  for  small  extrapolation  areas,  but 
distorts  the  overall  function  when  large  extrapolation  areas  are 
required. 

FPS 

The  computer  memory  required  to  produce  an  adequate  virtual 
mesh  for  accurate  interpolations  exceeded  that  for  a  typical 
computer  workstation.  This  method  is  recommended  only  for 
mainframes  or  supercomputers  with  large  core  memories. 

IIM 

This  method  is  limited  by  its  two-dimensional  formulation,  as 
well  as  its  inability  to  provide  extrapolation.  Its  search  routine  has 
also  had  some  difficulties  resolving  the  location  of  aerodynamic 
surface  points  with  respect  to  their  structural  counterparts. 
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15.  RECOMMENDATIONS  FOR  FURTHER  STUDY 


The  Inverse  Isoparametric  Mapping  showed  great  promise  in  its  two-dimensional  applications. 
This  method  is  the  closest  simulation  of  actual  finite-element  structural  analyses.  This  method  will 
require  the  following  elements  to  be  upgraded  if  it  is  to  be  used  in  a  general  applications  package: 

•  extension  from  two-dimensions  to  three-dimensions 

•  elimination  of  the  requirement  for  structured  grids 

•  accurate  interpolation  capability 

•  improved  “search”  routines  to  identify  grid  node  linkages 

The  Non-Uniform  B-Splines  Method  showed  excellent  promise,  but  has  problems  with  its  search 
and  bivariate  interpolation  scheme  which  correlate  the  known  and  unknown  grid  points.  It  is 
recommended  that  these  two  routines  be  replaced  with  higher-order  routines  to  minimize  the  errors 
introduced  by  these  two  algorithms.  NUBS  has  the  added  advantage  that  it  can  be  up-graded  to 
handle  IGES  and  CAD  files  to  more  accurately  provide  surface  data  to  structural  and  design 
engineers. 


267 


16.  ACKNOWLEDGMENTS 


This  research  was  funded  by  the  Wright  Laboratory  Aeromechanics  Division  (WL/FIM)  via 

contract  F33615-94-C-3010.  The  program  technical  monitor  was  Dr.  Don  Kinsey.  The  task 

technical  monitor  was  Capt.  Kenneth  Moran  of  the  CFD  Research  Branch  of  Wright  Laboratory. 

The  authors  would  like  to  thank  the  following  people  for  their  contributions  to  this  effort : 

•  Capt.  Kenneth  Moran  of  WL/FIM  for  his  technical  support  and  reviews 

•  Mr.  Larry  Huttsell  of  WL/FIBGE  for  his  help  in  obtaining  the  survey  results,  for 
permission  to  use  the  engine  applications  test  case  and  for  his  technical  insight  into  the 
problems  associated  with  aeroelastic  simulations 

•  Dr.  Richard  Franke  of  the  Naval  Postgraduate  School  and  Dr.  Kari  Appa  of  Northrop 
Corporation  for  their  technical  recommendations  and  help  given  during  code  development 
of  the  Multiquadrics  and  Finite  Surface  Spline  methods,  respectively. 

•  Dr.  Robert  Fithen  of  the  University  of  New  Orleans  for  his  technical  explanations  and 
starting  code  for  the  Inverse  Isoparametric  Mapping 

•  Dr.  Robert  Ames  of  the  David  Taylor  Naval  Research  Center  for  his  help  in  using  the 
DT_NURBS  library,  and  all  other  DT_NURBS  users  who  contributed  suggestions 

•  Mr.  Ray  Kolonay  of  Wright  Laboratory  (WL/FIB)  for  obtaining  the  structural  data  for  the 
F- 16  and  AGARD  wing  applications  test  cases. 

•  Mr.  Curt  Niebur,  Mr.  Jeff  Hedlund,  Dr.  Ray  Hixon  and  Mr.  Mark  Smilor  for  the 
assistance  in  formatting,  plotting,  coding,  and  doing  “leg-work”  for  the  literature  search 


268 


17.  REFERENCES 


1.  “Hight  Loads  Prediction  Methods  for  Aircraft,  Volume  I:  Euler/Navier-Stokes  Aeroelastic 
Method  (ENS3DAE)  Technical  Development  Summary”,  WRDC-TR-3104, 1989. 

2.  Byun,  C.  and  Guruswamy,  G.  P.,  “A  Comparative  Study  of  Serial  and  Parallel  Aeroelastic 
Computations  of  Wings,”  NAS  A  Technical  Memorandum  108805,  January  1994. 

3.  Robinson,  B.  A.,  Batina,  J.  T.,  Yang,  H.  T.  Y.,  “Aeroelastic  Analysis  of  Wings  Using  the 
Euler  Equations  with  a  Deforming  Mesh,”  AIAA  Journal  of  Aircraft,  Vol.  28,  No.  11, 
November  1991,  pp.  781-788. 

4.  Guruswamy,  G.  P.,  and  Byun,  C.,  “Fluid-Stmctural  Interactions  Using  Navier-Stokes  Flow 
Equations  Coupled  with  Shell  Finite  Element  Structures,”  AIAA  Paper  93-3087,  24th  Fluid 
Dynamics  Conference,  6-9  July  1993,  Orlando,  FL. 

5.  Franke,  R.,  “Scattered  Data  Interpolation:  Tests  of  Some  Methods,”  Mathematics  of 
Computations,  Vol.  38,  No.  157,  Jan.  1982,  pp.  181-200. 

6.  Shan,  R.,  “MPROC3D:  User  and  Program  Reference  Guide,”  Draft  Version,  WL/FIB 
Contract  F33657-90-D-2189,  Task  012,  October  1993. 

7.  Walatka,  P.  P.,  Clucas,  J.,  McCabe,  R.  K.,  Plessel,  T.,  Potter,  R.,  “FAST  User  Guide”, 
FAST  1.0,  Cosmic  Program  ARC-13316,  NASA-Ames,  November,  1992. 

8.  ‘Tecplot  Version  6  User’s  Manual,”  Amtec  Engineering,  Inc.,  BeUevue,  WA,  1994. 

9.  Turner,  E.  W.,  “Interpolation  of  flexibility  Influence  Coefficients  from  One  Grid  to  Another 
Using  Infinite-Plate  Splines,”  Technical  Memorandum  WRDC-TM-91-000-FIBE,  Wright 
Laboratories,  Wright-Patterson  AFB,  Ohio,  July  1991. 

10.  Harder,  R.  L.,  and  Demarais,  R.  N.,  “Interpolation  Using  Surface  Splines,”  AIAA  Journal, 
vol.  9,  no.  2,  February  1972,  pp.  189  -  191. 

11.  Franke,  R.,  “Scatter^  Data  Interpolation:  Tests  of  Some  Methods,”  Mathematics  of 
Computations,  Vol.  38,  No.  157,  Jan.  1982,  pp.  181-200. 

12.  Kansa,  E.J.,  “Multiquadrics  -  A  Scattered  Data  Approximation  Scheme  with  Applications  to 
Computational  Fluid  Dynamics  -  I:  Surface  Approximations  and  Partial  Derivative 
Estimates,”  Computers  and  Mathematics  with  Applications,  19(9/9):127-145, 1990. 

13.  Kansa,  E.J.,  “Multiquadrics  -  A  Scattered  Data  Approximation  Scheme  with  Applications  to 
Computational  Fluid  Dynamics  -  II:  Solutions  to  Parabolic,  Hyperbolic  and  Elliptic  Partial 
Differential  Equations,”  Computers  and  Mathematics  with  Applications,  19(9/9):147-161, 
1990. 

14.  Appa,  K.,  “Finite-Surface  Spline,”  Journal  of  Aircraft,  26(5):495-496,  May  1989. 

15.  Fithen,  R.,  Private  Communication. 

16.  Yates,  E.  C.,  “AGARD  Standard  Aeroelastic  Configurations  for  Dynamic  Response,  I.  Wing 
445.6”,  AGARD-R-765. 

17.  Ziada,  S.,  Buhlmann,  E.  T.,  Bolleter,  U.,  “Model  Tests  on  Shell  Flutter  Due  to  Flow  on 
Both  Sides,”  Journal  of  Fluids  and  Structures,  Vol.  2:177-196, 1988. 

18.  Rickets,  R.  H.,  Noll,  T.  E.,  Whitlow,  W.,  and  Huttsell,  L.  J.,  “An  Overview  of 
Aeroelasticity  Studies  for  the  National  Aero-Space  Plane”,  AIAA  Paper  No.  93-1313,  April, 
1993. 


269 


Appendix  A:  Report  Review  List 


Bibliography  DataBase  File:  “Interface” 
May  2, 1996 


References 

[Ames  1995]  R.  Ames.  Fitsurf  6.0.  Private  correspondence,  1995. 

[Anonl988]  Anon.  Connectivity  between  Aerodynamic  and  Structural  Models  / Section  8.3  AS¬ 
TROS  Theoretical  Manual.  Wright  Aeronautical  Laboratories,  Wright-Patterson  Air  Force 
Base,  Ohio,  1988. 

[Anonl995]  Anon.  DTJfURBS  Spline  Geometry  Subprogram  Library  User's  Manual.  Boeing 
Computer  Services,  version  2.3  edition,  February  1995.  pp.  3-1  -4-5. 

[AnthonyCoxl987]  G.  T.  Anthony  and  M.  G.  Cox.  The  fitting  of  extremely  large  data  sets  by 
bivariate  splines.  In  J.  C.  Mason  and  M.  G.  Cox,  editors.  Algorithms  for  Approximation, 
pages  5  -  20.  Clarendon  Press,  (Oxford,  1987. 

[Appal989]  Kari  Appa.  Finite-surface  spline.  Journal  of  Aircraft,  26(5):495  -  496,  May  1989. 

[Appal991]  Kari  Appa.  Recent  advances  in  maneuver  loads  analysis.  Computer  Methods  in 
Applied  Mechanics  and  Engineering,  pages  693  -  717,  September  1991. 

[AppaYankulichCowanl985]  Kari  Appa,  Micheal  Yankulich,  and  David  L.  Cowan.  The  deter¬ 
mination  of  load  and  slope  transformation  matrices  for  aeroelastic  analyses.  Journal  of 
Aircraft,  22(8):734  -  736,  August  1985. 

[Argyrisl966]  J.  H.  Argyris.  Matrix  displacement  analysis  of  plates  and  shells  -  prolegomena  to 
a  general  theory,  part  I.  Ingenieur-Archiv,  35(2):102  -  142, 1966. 

[Atteial970]  M.  Atteia.  Fonctions  ‘spline’  etnoyauxreproduisantsd’Aronszajn-Bergman.  Revue 
Frangaise  d’Informatique  et  de  Recherche  Operationelle,  R-3:31  —  43, 1970. 


270 


[BamhillPiperRescorlal987]  R.  E.  Barnhill,  B.  R.  Piper,  and  K.  L.  Rescorla.  Interpolation  to 
arbitrary  data  on  a  surface.  In  Gerald  E.  Farina,  editor.  Geometric  Modeling:  Algorithms 
and  New  Trends,  pages  281  -  289.  Society  for  Industrial  and  Applied  Mathematics,  1987. 

[Bathel982]  K.  J.  Bathe.  Finite  Element  Procedures  in  Engineering  Analysis.  Prentice-Hall,  Inc., 
Englewood  Cliff,  New  Jersey,  1982. 

[BeatsonZieglerl985]  R.  K.  Beatson  and  Z.  Ziegler.  Monotonicity  preserving  surface  interpolation. 
SIAM  Journal  of  Numerical  Analysis,  22(2):401  -411,  April  1985. 

[Bezierl993]  Pierre  E.  Bezier.  The  first  years  of  CAD/CAM  and  the  UNISURF  CAD  system.  In 
Les  Piegl,  editor.  Fundamental  Developments  of  Computer-Aided  Geometric  Modeling, 
pages  13  -  26.  Academic  Press  Limited,  San  Diego,  California,  1993. 

[BinevJetterl992]  P.  Binev  and  K.  letter.  Estimating  the  condition  number  for  multivariate  interpo¬ 
lation  problems.  In  Dietrich  Braess  and  Larry  L.  Schumaker,  editors.  Numerical  Methods 
of  Approximation  Theory,  vol.  9,  pages  41-52.  Birkhaeuser  Verlag,  Basel,  1992. 

[BirkhoffGarabedianl960]  Garrett  Birkhoff  and  Henry  L.  Garabedian.  Smooth  surface  interpola¬ 
tion.  Journal  of  Mathematics  and  Physics,  39:258  -  268, 1960. 

[Blair 1994]  Max  Blair.  A  unified  aeroelastic  surface  formulation.  In  Proceedings  of  the  35th 
Structures,  Structural  Dynamics  and  Materials  Conference,  Hilton  Head,  South  Carolina, 
pages  1276  -  1284,  April  18  -  20  1994.  AIAA  Paper  No.  94-1471. 

[BlessMoerderl995]  R.  R.  Bless  and  D.  D.  Moerder.  A  computationally  efficient  method  for 
multidimensional  data  interpolation.  In  Proceedings  of  the  AIAA  Guidance,  Navigation, 
and  Control  Conference,  Baltimqpe,  Maryland,  August  7-10  1995. 

[Borland  1986]  C.  J.  Borland.  XTRANSS  -  Technical  Development  Summary.  Boeing  Military 
Airplane  Company,  Seattle,  Washington,  January  1986. 

[Bosworthl987]  K.  W.  Bosworth.  Shape  constraint  curve  and  surface  fitting.  In  Gerald  E.  Farina, 
editor.  Geometric  Modeling:  Algorithms  and  New  Trends,  pages  247  -  263.  Society  for 
Industrial  and  Applied  Mathematics,  1987. 

[ByunGuruswamyl994]  Chansup  Byun  and  Guru  P.  Guruswamy.  Wing-body  aeroelasticity  using 
finite-difference  fluid/finite-element  structural  equations  on  parallel  computers.  In  Pro¬ 
ceedings  of  the  35th  Structures,  Structural  Dynamics,  and  Materials  Conference,  Hilton 
Head,  South  Carolina,  pages  1356  -  1365.  AIAA,  April  18  -  20  1994.  AIAA  Paper  No. 
94-1487. 

[ChuiLai  1987]  Charles  K.  Chui  and  M.  Lai.  On  multivariate  vertex  splines  and  applications.  In  C.K. 
Chui,  L.L.  Schumaker,  and  F.I.  Utreras,  editors.  Topics  in  Multivariate  Approximation, 
pages  19  -  36.  Academic  Press,  Inc.,  1987. 


271 


[CookMalkusPleshal989]  R.T).  Cook,  D.  S.  Malkus,  and  M.  E.  Plesha.  Concepts  and  Applications 
of  Finite  Element  Analysis.  John  Wiley  and  Sons,  New  York,  3rd  edition,  1989. 

[Coulll965]  A.  CouU.  A  direct-stress  analysis  of  orthotropic  cantilever  plates.  Journal  of  Applied 
Mechanics,  32:67  —  70,  March  1965. 

[Cox 1993]  Maurice  G.  Cox.  Algorithms  for  spline  curves  and  surfaces.  In  Les  Piegl,  editor. 
Fundamental  Developments  of  Computer-Aided  Geometric  Modeling,  chapter  4,  pages 
51-76.  Academic  Press  Limited,  San  Diego,  California,  1993. 

[Dahmenl987]  W.  Dahmen.  Subdivision  algorithms  -  recent  results,  some  extensions  and  further 
developments.  In  J.  C.  Mason  and  M.  G.  Cox,  editors.  Algorithms  for  Approximation, 
pages  21-49.  Clarendon  Press,  Oxford,  1987. 

[Donel965]  G.  T.  S.  Done.  Interpolation  of  mode  shapes:  A  matrix  scheme  using  two-way  spline 
curves.  The  Aeronautical  Quarterly,  pages  333  -  349,  November  1965. 

[Duchonl976]  Jean  Duchon.  Fonctions-spline  k  dnergie  invariante  par  rotation.  Technical  Report 
R.  R.  No.  27,  University  de  Grenoble,  January  1976. 

[Duchonl977]  Jean  Duchon.  Splines  minimizing  rotation-invariant  semi-norms  in  Sobolev  spaces. 
In  W.  Schempp  and  K.  Zeller,  editors.  Constructive  Theory  of  Functions  of  Several  Vari¬ 
ables,  Oberwolfach  1976,  pages  85  -  100.  Springer- Verlag,  Berlin,  1977. 

[Farinl988]  G.  Farin.  Curves  and  Surfaces  for  Computer  Aided  Geometric  Design.  Academic 
Press,  Inc.,  Boston,  1988. 

[FergusonMastroBlakelyl989]  D.  Ferguson,  R.  Mastro,  and  R.  Blakely.  Modeling  and  analysis 
of  aerodynamic  data.  Technical  Report  AIAA  Paper  No.  89-0476,  AIAA,  370  L’Enfant 
Promenade,  S.W.,  Washington  D.C.  20024,  January  1989. 

[Fithenl995]  R.  Fithen.  Interp.  Private  correspondence,  1995. 

[Foley 1987]  T.  A.  Foley.  Weighted  bicubic  spline  interpolation  to  rapidly  varying  data.  ACM 
Transactions  on  Graphics,  6(1):1  -  18,  January  1987. 

[Fontanellal987]  Ferruccio  Fontanella.  Shape  preserving  surface  interpolation.  In  C.K.  Chui,  L.L. 
Schumaker,  and  F.I.  Utreras,  editors.  Topics  in  Multivariate  Approximation,  pages  63  - 
78.  Academic  Press,  Inc.,  1987. 

[Frankel982]  Richard  Franke.  Scattered  data  interpolation:  Tests  of  some  methods.  Mathematics 
of  Computation,  38(157):181  -  200,  January  1982. 

[Frankel987]  Richard  Franke.  Recent  advances  in  the  approximation  of  surfaces  from  scattered 
data.  In  C.K.  Chui,  L.L.  Schumaker,  and  F.I.  Utreras,  editors.  Topics  in  Multivariate 
Approximation,  pages  79  -  98.  Academic  Press,  Inc.,  1987. 


272 


[FrankeSchumakerl987]  R.  Franke  and  L.  L.  Schuraaker.  A  bibliography  of  multivariate  approx¬ 
imation.  In  C.K.  Chui,  L.L.  Schumaker,  and  F.I.  Utreras,  editors,  Topics  in  Multivariate 
Approximation,  pages  275  -  335.  Academic  Press,  Inc.,  1987. 

[GeaChowChangl992]  Lie-Mine  Gea,  Chuen-Yen  Chow,  and  I-Chung  Chang.  Transonic  aeroe- 
lastic  analysis  for  rotor  blades.  Journal  of  Aircraft,  29(3):477  -  484,  May- June  1992. 

[Gilesl986]  Gary  Giles.  Equivalent  plate  analysis  of  aircraft  wing  box  structures  with  general 
planform  geometry.  Journal  of  Aircraft,  23(11):859  -  863,  November  1986. 

I 

[Giles  1989]  Gary  L.  Giles.  Further  generalization  of  an  equivalent  plate  representation  for  aircraft 
structural  analysis.  Journal  of  Aircraft,  26(1 ):67  -  74,  January  1989. 

[Grevillel969]  T.  N.  E.  Greville.  Introduction  to  spline  functions.  In  T.  N.  E.  Greville,  editor. 
Theory  and  Applications  of  Spline  Function,  pages  1  -  36,  New  York,  1969.  Mathematics 
Research  Center,  Academic  Press. 

[Guruswamyl994]  G.  P.  Guruswamy.  A  comparative  study  of  serial  and  parallel  aeroelastic  com¬ 
putations  of  wings.  Technical  Memorandum  108805,  NASA  Ames  Research  Center, 
Moffett  Field,  California,  January  1994. 

[GuruswamyByunl993]  G.  P.  Guruswamy  and  C.  Byun.  Fluid-structural  interactions  using  navier- 
stokes  flow  equations  coupled  with  shell  finite  element  structures.  In  Proceedings  of  the 
24th  Fluid  Dynamics  Conference.  AIAA,  July  6-9  1993.  AIAA  Paper  93-3087. 

[GuruswamyByunl995]  G.  P.  Guruswamy  and  C.  Byun.  Direct  coupling  of  euler  flow  equations 
with  plate  finite  element  structures.  AIAA  Journal,  33(2):375  -  377,  February  1995. 

[HarderDesmaraisl972]  R.  L.  Harder  and  R.  N.  Desmarais.  Interpolation  using  surface  splines. 
Journal  of  Aircraft,  9(2):189  -  191, 1972. 

[Hardy  1971]  Rolland  L.  Hardy.  Multiquadric  equations  of  topography  and  other  irregular  surfaces. 
Journal  of  Geophysical  Research,  76(8):1905  -  1915,  March  1971. 

[Hardy 1990]  Rolland  L.  Hardy.  Theory  and  applications  of  the  multiquadric  biharmonic-method. 
Computers  arid  Mathematics  with  Applications,  19(8/9):  163  -  208, 1990. 

[HardyNelson  1986]  Rolland  L.  Hardy  and  Stuart  A.  Nelson.  A  multiquadric-biharmonic  represen¬ 
tation  and  approximation  of  disturbing  potential.  Geophysical  Research  Letters,  13(1):  18 

-  21,  January  1986. 

[Jones  1987]  A.  K.  Jones.  Shape  control  of  curves  and  surfaces  through  constrained  optimization. 
In  Gerald  E.  Farina,  editor,  Geometric  Modeling:  Algorithms  and  New  Trends,  pages  265 

-  279.  Society  for  Industrial  and  Applied  Mathematics,  1987. 


273 


[Kansa 1990a]  E.  J.  Kansa.  Multiquadrics  -  a  scattered  data  approximation  scheme  with  applica¬ 
tions  to  computational  fluid-dynamics  - 1:  surface  approximations  and  partial  derivative 
estimates.  Computers  and  Mathematics  with  Applications,  19(8/9);  127-  145, 1990. 

[Kansa 1990b]  E.  J.  Kansa.  Multiquadrics  -  a  scattered  data  approximation  scheme  with  application 
to  computational  fluid-dynamics  -  H:  solutions  to  parabolic,  hyperbolic  and  elliptic  partial 
differential  equations.  Computers  and  Mathematics  with  Applications,  19(8/9);147- 161, 
1990. 

[Kreyszigl988]  E.  Kreyszig.  Advanced  Engineering  Mathematics.  Johh  Wiley  &  Sons,  New  York, 

1988. 

[LancasterSalkauskasl986]  Peter  Lancaster  and  Kestutis  Salkauskas.  Curve  and  Surface  Fitting, 
chapter  4,  pages  97-111.  Academic  Press,  London,  1986. 

[LeMehautel987]  Alain  J.  Y.  Le  Mehaute.  Unisolvent  interpolation  in  //?"  and  the  simplicial 
polynomial  finite  element  method.  In  C.K.  Chui,  L.L.  Schumaker,  and  F.I.  Utreras,  editors. 
Topics  in  Multivariate  Approximation,  pages  19  -  36.  Academic  Press,  Inc.,  1987. 

[LeeLoellbachl988]  K.D.  Lee  and  J.M.  Loellbach.  Geometry-adaptive  surface  grid  generation 
using  parametric  projection.  Journal  of  Aircraft,  26(2):  162  -  166,  February  1988. 

[Loscalzol969]  Rank  R.  Loscalzo.  An  introduction  to  the  application  of  spline  functions  to  initial 
value  problems.  In  T.  N.  E.  Greville,  editor.  Theory  and  Applications  of  Spline  Function, 
pages  37  -  64,  New  York,  1969.  Mathematics  Research  Center,  Academic  Press. 

[MSC/NASTRAN1987]  Anon/NASTRAN.  Interconnection  of  Structure  with  Aerodynamics  / 
Section  2.4  of  MCS/NASTRAN  handbook  for  Aeroelastic  Analysis  Vol.  1.  MacNeal- 
Schwendler  Corporation.,  815  Colorado  Blvd.,  Los  Angeles,  California,  September  1987. 

[Meirovitchl967]  L.  Meirovitch.  Analytical  Methods  in  Vibrations.  MacMillian  Publishing  Co., 
New  York,  1967. 

[MontefuscoCasciolal989]  Laura  Montefusco  and  Giulio  Casciola.  Algorithm  677  surface 
interpolation.  ACM  Transactions  on  Mathematical  Software,  15(4):365  -  374,  December 

1989. 

[MurtiValliappanl986]  V.  Murti  and  S.  Valliappan.  Numerical  inverse  isoparametric  mapping  in 
remeshing  and  nodal  quantity  contouring.  Computers  and  Structures,  22(6):  101 1  - 1021, 
1986. 

[Nashl952]  W.A.  Nash.  Several  approximate  analyses  of  the  bending  of  a  rectangular  cantilever 
plate  by  uniform  normal  pressure.  Journal  of  Applied  Mechanics,  Unknown  (Unknown);33 
-36,  March  1952. 


274 


[ObayashiGuruswamyl994]  S.  Obayashi  and  G.P.  Guraswamy.  Convergence  acceleration  of  an 
aeroelastic  navier-stokes  solver.  In  25th  AIAA  Fluid  Dynamics  Conference.  AIAA,  June 
20  -  23  1994.  AIAA  Paper  No.  94-2268. 

[Pidapartil992]  R.  M.  V.  Pidaparti.  Structural  and  aerodynamic  data  transformation  using  inverse 
isoparametric  mapping.  Journal  of  Aircraft,  29(3):507  -  509, 1992. 

[PieglTillerl987]  L.  Piegl  and  W.  Uller.  Curve  and  surface  constructions  using  rational  b-splines. 
Computer  Aided  Design,  19(9):485  -  495,  November  1987. 

[PittmanGilesl988]  James  L.  Pittman  and  Gary  L.  Giles.  Combined,  nonlinear  aerodynamic  and 
structural  method  for  the  aeroelastic  design  of  a  three-dimensional  wing  in  supersonic 
flow.  Technical  Report  AIAA  Paper  No.  88-1769,  AIAA,  370  L’Enfant  Promenade,  S.W., 
Washington  D.C.  20024, 1988. 

[Powell 1987]  M.  J.  D.  Powell.  Radial  basis  functions  for  multivariate  interpolation:  a  review.  In 
J.  C.  Mason  and  M.  G.  Cox,  editors,  Algorithms  for  Approximation,  pages  143  -  167. 
Clarendon  Press,  Oxford,  1987. 

[Powell  1992]  M.  J.  D.  Powell.  Tabulation  of  thin  plate  splines  on  a  very  fine  two-dimensional  grid. 
In  Dietrich  Braess  and  Larry  L.  Schumaker,  editors.  Numerical  Methods  of  Approximation 
Theory,  vol.  9,  pages  221  -  244.  Birkhaeuser  Verlag,  Basel,  1992. 

[Riesenfeldl993]  R.  Riesenfeld.  Modeling  with  nurbs  curves  and  surfaces.  In  Fundamental  De¬ 
velopments  of  Computer-Aided  Geometric  Modeling,  pages  77  -  97.  Academic  Press 
Limited,  San  Diego,  California,  1993. 

[Rislerl992]  J.-J.  Risler.  Mathematical  Methods  for  CAD.  Cambridge  University  Press,  1992. 

[RobmsonBatinaYangl991]  B.  Robinson,  J.  Batina,  and  H.  Yang.  Aeroelastic  analysis  of  wings 
using  the  Euler  equations  for  a  deforming  mesh.  Journal  of  Aircraft,  28(1 1):781  -  788, 
November  1991. 

[Roddenl959]  WiUiam  P.  Rodden.  Further  remarks  on  matrix  interpolation  of  flexibility  influence 
coefficients.  Journal  of  Aerospace  Sciences,  26:760  -  761,  November  1959. 

[RoddenMcGrewKalmanl972]  William  Rodden,  Jean  A.  McGrew,  andTerez  P.  Kalman.  Comment 
on  “Interpolation  using  surface  splines”.  Journal  of  Aircraft,  9(12):869  -  871,  December 
1972. 

[Schmittl956]  Alfred  F.  Schmitt.  A  least  squares  matrix  interpolation  of  flexibility  influence 
coefficients.  Journal  of  Aeronautical  Sciences,  page  980,  October  1956. 

[Shanl993]  R.  Shan.  MPROC3D:  User’s  and  program  reference  guide.  Unpublished  report,  1993. 


275 


[SmithCampelll990]  Leigh  Smith  and  Richard  Campell.  Method  for  designing  of  flexible  tran¬ 
sonic  wings.  Technical  Paper  2045,  NASA  Langley  Research  Center,  Hampton,\^rginia, 
November  1990. 

[TatumGilesl987]  K.E.  Tatum  and  G.L.  Giles.  Integrating  nonlinear  aerodynamic  and  structural 
analysis  for  a  complete  fighter  configuration.  Technical  Report  AIAA  Paper  No.  87-2863, 
AIAA,  370  L’Enfant  Promenade,  S.W.,  Washington  D.C.  20024,  September  1987. 

[TatumGilesl989]  Kenneth  Tatum  and  Gary  L.  Giles.  Integrating  nonlinear  aerodynamic  and 
structural  analysis  for  a  complete  fighter  configuration.  Journal  of  Aircraft,  25(12):  1 150 
- 1154,  December  1989. 

['Illlerl983]  W.  Tiller.  Rational  b-splines  for  curve  and  surface  representation.  IEEE  Computer 
Graphics  and  Applications,  pages  61-69,  September  1983. 

[Turner  1991]  E.  W.  Turner.  Interpolation  of  flexibility  influence  coefficients  from  one  grid  to 
another  using  infinite  surface  splines.  Technical  Memorandum  WRDC-TM-91-000-FIBE, 
Wright  Laboratories,  Wright-Patterson  Air  Force  Base,  Ohio,  July  1991. 

[Turner  1 99  lu]  E.  W.  Turner.  Flexibility  influence  coefficients  matrix  interpolation  from  one  grid 
to  another.  Unpublished  notes,  1991. 

[Utrerasl987]  Florencio  Utreras.  Constrained  surface  construction.  In  C.  K.  Chui,  L.  L.  Schu- 
maker,  and  F.  I.  Utreras,  editors.  Topics  in  Multivariate  Approximation,  pages  223  -  254. 
Academic  Press,  Inc.,  1987. 

[WalshAhlbergNilsonl962]  J.L.  Walsh,  J.H.  Ahlberg,  and  E.N.  Nilson.  Best  approximation  of  the 
spline  fit.  Journal  of  Mathematic^  and  Mechanics,  1 1(2);225  -  233, 1962. 

[WhitlowBennettl982]  Woodrow  Whitlow  and  Robert  M.  Bennett.  Application  of  a  transonic  po¬ 
tential  flow  code  to  the  static  aerodynamic  analysis  of  three-dimensional  wings.  Technical 
Report  AIAA  Paper  No.  82-0689,  AIAA,  370  L’Enfant  Promenade,  S.W.,  Washington 
D.C.  20024, 1982. 

[deBoorl962]  Carl  de  Boor.  Bicubic  spline  interpolation.  Journal  of  Mathematics  and  Physics, 
41:213  -  218,  February  1962. 

[deBoorl993]  Carl  de  Boor.  B(asic)-spline  basics.  In  Les  Piegl,  editor.  Fundamental  Develop¬ 
ments  of  Computer-Aided  Geometric  Modeling,  chapter  3,  pages  27  -49.  Academic  Press 
Limited,  San  Diego,  California,  1993. 

[deCasteljaul993]  Paul  de  Casteljau.  Polar  forms  for  curve  and  surface  modeling  as  using  at 
Citroen.  In  Les  Piegl,  editor,  Fundamental  Developments  of  Computer-Aided  Geometric 
Modeling,  chapter  1,  pages  1  - 12.  Academic  Press  Limited,  San  Diego,  California,  1993. 


276 


[unknownl]  unknown.  Criteria  for  curve  and  surface  fitting.  This  was  on  pages  127-131  of  some 
unknown  source! 

[unknown2]  unknown.  Surface  interpolation  by  tensor  product  and  blending  methods.  This  was 
on  pages  153-178  of  some  unknown  source! 

[unknown3]  unknown.  Surface  splines.  This  was  on  pages  245-271  of  some  unknown  source! 
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APPENDIX  B  -  SUMMARY  OF  THE  ANALYTICAL  TEST  CASES 
Analytical  Test  Category  I  -  Regular  Interpolation 
Number  of  Test  Cases  :  138 

Test  Category  Description  :  A  rectangular,  Cartesian  grid  is  used  for  both  the  structural  and 
aerodynamic  grids.  Interpolation  of  various  functions  are  examined:  zero-gradient  functions  (constants), 
linearly  varying  functions,  sinusoidally  varying  functions.  The  last  set  of  functions  includes  superposition 
of  two  frequencies  to  create  an  irregidar  pattern.  This  test  will  provide  the  basic  characteristics  of  the 
interpolation  scheme  and  will  be  used  for  general  debugging. 

Test  Case  Matrix 

Grids  are  defined  by  streamwise  x  spanwise  elements.  A  is  the  amplitude  or  function  value. 

The  first  set  of  test  cases  checks  the  accuracy  of  the  algorithms  in  the  streamwise  direction. 


Case 

Number 

Original  Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

la 

10x10 

Constant 

Spacing 

10x10 

Constant 

Spacing 

Constant  A=5.0 

Constant  A=0.0 

lb 

Linear  A=5 .0-0.0 

Ic 

Sinusoidal,  1  Cycle, 
A=2.0 

Id 

50x20 
Clustered  at 
Root  and 
Leading  Edge 

Constant  A=5.0 

le 

Linear  A=5.0-0.0 

If 

Sinusoidal,  1  Cycle, 
A=2.0 

ig 

50x20 

Clustered  at  Tip 
and  Trailing 
Edge 

Constant  A=5.0 

Ih 

Linear  A=5. 0-0.0 

li 

Sinusoidal,  1  Cycle, 
A=2.0 

Ij 

50x20 
Clustered  at  all 
Edges 

Constant  A=5.0 

Ik 

Linear  A=5.0-0.0 

11 

Sinusoidal,  1  Cycle, 
A=2.0 

Im 

10x10 

Constant 

Spacing 

Constant  A=50.0 
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The  second  set  of  test  cases  checks  the  accuracy  of  the  algorithms  in  the  spanwise  direction.  This 
examines  the  algorithms  for  the  possibility  of  bias. 


Spanwise  Function 
Description 

Constant  A=5.0 


Linear  A=5.0-0.0 
Sinusoidal,  1  Cycle, 
A=2.0 

Constant  A=5.0 


Linear  A=5. 0-0.0 
Sinusoidal,  1  Cycle, 
A=2.0 

Constant  A=5.0 


Linear  A=5.0-0.0 
Sinusoidal,  1  Cycle, 
A=2.0 

Constant  A=5.0 


Linear  A=5.0-0.0 
Sinusoidal,  1  Cycle, 
A=2.0 

Constant  A=50.0 


Linear  A=1.01-1.02 
Linear  A=0.01  -  0.02 
Sinusoidal, 

3  Cycles,  A=2.0 

Sinusoidal, 

5  Cycles,  A=2.0 


Sinusoidal, 

7  Cycles,  A=2.0 


ls2 

20x70 

Constant 

Spacing 

Sinusoidal, 

3  Cycles,  A=.02 

lt2 

Sinusoidal, 

5  Cycles,  A=.02 

lu2. 

Sinusoidal, 

7  Cycles,  A=.02 

lal2 

Constant  A=.05 

lbl2 

Linear  A=.05-0.0 

lcl2 

Sinusoidal,  1  Cycle, 
A=.02 

ldl2 

20x50 
Clustered  at 
Root  and 
Leading  Edge 

Constant  A=.05 

lel2 

Linear  A=.05-0.0 

lfl2 

Sinusoidal,  1  Cycle, 
A=.02 

lgl2 

20x50 

Clustered  at  Tip 
and  Trailing 
Edge 

Constant  A=.05 

lhl2 

Linear  A=.05-0.0 

lil2 

Sinusoidal,  1  Cycle, 
A=.02 

ljl2 

Constant  A=.05 

lkl2 

Linear  A=.05-0.0 

1112 

Sinusoidal,  1  Cycle, 
A=.02 

The  next  series  of  test  cases  examines  the  capability  of  the  algorithms  in  interpolating  shell  structures.  The 
leading  and  trailing  edges  of  the  grids  are  level  at  0.0,  while  die  thickness  (z-parameter)  varies  from  0.0  to 


0.2. 


Case 

Number 

Original  Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

laa 

Constant  A=5.0 

Constant  A=0.0 

Ibb 

Linear  A=5.0-0.0 
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Constant  A=0.0 


Linear  A=5.0-0.0 


Sinusoidal,  1  Cycle, 
A=2.0 


Constant  A=5.0 


Linear  A=5.0-0.0 


Sinusoidal,  1  Cycle, 
A=2.0 


Constant  A=5.0 


Linear  A=5.0-0.0 


Sinusoidal,  1  Cycle, 
A=2.0 


Constant  A=5.0 


Linear  A=5.0-0.0 


Sinusoidal,  1  Cycle, 
A=2.0 


Linear  A=1.01-1.02 


Linear  A=0.01  -  0.02 


Sinusoidal, 

3  Cycles,  A=2.0 


Sinusoidal, 

5  Cycles,  A=2.0 


Sinusoidal, 

7  Cycles,  A=2.0 


Sinusoidal, 

3  Cycles,  A=.02 


Sinusoidal, 

5  Cycles,  A=.02 


Sinusoidal, 

7  Cycles,  A=.02 
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This  final  set  of  data  combines  streamwise  and  spanwise  functions  for  both  plates  and  shells. 


Case 

Number 

Original 

Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

lA 

10x10 
Constant  Spac. 
Plate 

10x10 
Constant  Spac. 
Plate 

Linear  A=5.0-0.0 

Linear  A=5.0-0.0 

IB 

Linear  A=5 .0-0.0 

mmm\ 

1C 

20x50 
Clustered  at  all 
Edges 

Plate 

Linear  A=5 .0-0.0 

Constant  A=5.0 

ID 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

IE 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5.0-0.0 

IF 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

IG 

Linear  A=1.01-1.02 

Linear  A=1.01-1.02 

IH 

Linear  A=1.01  -  1.02 

Sinusoidal,  1  Cycle, 
A=2.0 

11 

10x50 

Constant  Space 
Plate 

20x70 
Constant  Space 
Plate 

Sinusoidal, 

1  Cycle,  A=2.0 

Sinusoidal, 

3  Cycles,  A=2.0 

IJ 

50x50 
Constant  Space 
Plate 

70x100 
Constant  Space 
Plate 

Sinusoidal, 

5  Cycles,  A=2.0 

Sinusoidal, 

3  Cycles,  A=0.02 

IK 

150  X 150 
Constant  Space 
Plate 

200x200 
Constant  Space 
Plate 

Sinusoidal, 

7  Cycles,  A=2.0 

Sinusoidal, 

7  Cycles,  A=0.02 

lAl 

10x10 

Constant  Space 
Shell 

10x10 

Constant  Space 
Shell 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

IBl 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

ICl 

20x50 
Qustered  at  all 
Edges 

Shell 

Linear  A=5 .0-0.0 

Constant  A=5.0 

IDl 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

lEl 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5.0-0.0 

IFl 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

IGl 

Linear  A=1.01-1.02 

Linear  A=1.01-L02 

IHl 

Linear  A=  1.01  - 1.02 

Sinusoidal,  1  Cycle, 
A=2.0 

10x50 

Constant  Space 
SheU 


50x50 
Constant  Space 
Shell 


150  X 150 
Constant  Space 
Shell 


10x10 

Constant  Space 
Plate 


20x70 
Constant  Space 
SheU 


70x100 
Constant  Space 
SheU 


200  X  200 
Constant  Space 
SheU 


10x10 

Constant  Space 
SheU 


20x50 
Clustered  at  aU 
Edges 
SheU 


10x50 

Constant  Space 
Plate 


50x50 
Constant  Space 
Plate 


150x150 
Constant  Space 
Plate 


20x70 
Constant  Space 
SheU 


70x100 
Constant  Space 
SheU 


200  x  200 
Constant  Space 
SheU 


Sinusoidal, 

1  Cycle,  A=2.0 

Sinusoidal, 

3  Cycles,  A=2.0 

Sinusoidal, 

5  Cycles,  A=2.0 

Sinusoidal, 

3  Cycles,  A=0.02 

Sinusoidal, 

7  Cycles,  A=2.0 

Sinusoidal, 

7  Cycles,  A=0.02 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5 .0-0.0 

Constant  A=5.0 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5.0-0.0 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=1.01-1.02 

Linear  A=1.01-1.02 

Linear  A=1.01  -  1.02 

Sinusoidal,  1  Cycle, 
A=2.0 

Sinusoidal, 

1  Cycle,  A=2.0 

Sinusoidal, 

3  Cycles,  A=2.0 

Sinusoidal, 

5  Cycles,  A=2.0 

Sinusoidal, 

3  Cycles,  A=0.02 

Sinusoidal, 

7  Cycles,  A=2.0 

Sinusoidal, 

7  Cycles,  A=0.02 
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Analytical  Test  Category  II  -  Irregular  Structural  Grids 


Number  of  Test  Cases  :  28 

Test  Category  Description  ;  This  category  confirms  that  no  irregularities  are  introduced  to  the 
interpolations  when  an  irregular  structural  grid  is  used.  The  structural  grid  varies  in  both  spanwise  and 
streamwise  fiinctions  along  a  given  “cut”  (see  figure  below).  A  rectangular,  Cartesian  grid  is  used  for  the 
aerodynamic  grids.  Inteipolation  of  various  functions  are  examined  :  2ero-gradient  functions  (constants), 
linearly  varying  functions,  sinusoidally  varying  functions.  This  set  of  functions  includes  superposition  of 
two  frequencies  to  create  an  irregular  pattern. 

Test  Case  Matrix 

Grids  are  defined  by  streamwise  x  spanwise  elements.  A  is  the  amplitude  or  function  value. 


Case 

Number 

Original 

Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

2A 

Grid  1 

10x10 
Constant  Spac. 
Plate 

Constant  A=1.0 

Constant  A=1.0 

2B 

Constant  A=1.0 

Linear  A=l. 0-0.0 

2C 

Linear  A=l. 0-0.0 

Constant  A=1.0 

2D 

Linear  A=l. 0-0.0 

Linear  A=5. 0-0.0 

2E 

Sinusoidal,  1  Cycle, 
A=1.0 

Sinusoidal,  1  Cycle, 
A=1.0 

2F 

50x50 

Clustered 

Plate 

Constant  A=1.0 

Constant  A=1.0 

2G 

Constant  A=1.0 

Linear  A=l. 0-0.0 

2H 

Linear  A=l. 0-0.0 

Constant  A=1.0 

21 

Linear  A=l. 0-0.0 

Linear  A=5.0-0.0 

2J 

Sinusoidal,  1  Cycle, 
A=1.0 

Sinusoidal,  1  Cycle, 
A=1.0 

2K 

Constant  A=0.005 

Constant  A=0.005 

2L 

Linear  A=0.005-0. 

Linear  A=-0.005-0 

2M 

Linear  A=0.005-0 

Linear  A=0.-0.005 

2N 

Sinusoidal,  1  Cycle, 
A=0.001 

Sinusoidal,  1  Cycle, 
A=0.001 

2A1 

Grid  1 

10x10 
Constant  Spac. 
SheU 

Constant  A=1.0 

Constant  A=1.0 

2B1 

Constant  A=1.0 

Linear  A=1.0-0.0 

2C1 

Linear  A=l. 0-0.0 

Constant  A=1.0 

2D1 

Linear  A=l. 0-0.0 

Linear  A=5.0-0.0 

2E1 

Sinusoidal,  1  Cycle, 
A=1.0 

Sinusoidal,  1  Cycle, 
A=1.0 

2F1 

50x50 

Clustered 

Shell 

Constant  A=1.0 

Constant  A=1.0 
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2G1 

Constant  A=  1.0 

Linear  A=l. 0-0.0 

2H1 

Linear  A=l. 0-0.0 

Constant  A=1.0 

211 

Linear  A=l. 0-0.0 

Linear  A=5.0-0.0 

2J1 

Sinusoidal,  1  Cycle, 
A=1.0 

Sinusoidal,  1  Cycle, 
A=1.0 

2K1 

Constant  A=0.005 

Constant  A=0.005 

2L1 

Linear  A=0.005-0. 

Linear  A=-0.005-0 

2M1 

Linear  A=0.005-0 

Linear  A=0.-0.005 

2N1 

Sinusoidal,  1  Cycle, 
A=0.001 

Sinusoidal,  1  Cycle, 
A=0.001 
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Analytical  Test  Category  III  -  Extrapolation 


Number  of  Test  Cases  :  61 

Test  Category  Description  :  This  data  set  takes  some  of  the  more  complex  shell  and  plate  functions 
from  test  categories  I  and  II  and  examines  what  happens  when  the  data  does  not  extend  to  the  identical 
locations  in  the  coordinate  axis.  For  the  regular  structured  grid,  the  streamwise  direction  begins  at  x  =  0.2 
and  ends  at  x  =  0.8,  while  the  spanwise  direction  begins  at  y  =  0.1  and  ends  at  y  =  0.9.  The  irregular 
grid  is  shown  below.  The  aerodynamic  grid  limits  begin  and  end  at  0.  and  1.,  respectively. 

Test  Case  Matrix 

Grids  are  defined  by  streamwise  x  spanwise  elements.  A  is  the  amplitude  or  function  value. 


Case 

Number 

Original 

Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

3A 

10x10 
Constant  Spac. 
Plate 

10x10 
Constant  Spac. 
Plate 

Linear  A=5.0-0.0 

Linear  A=5. 0-0.0 

3B 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

3C 

20x50 
Clustered  at  all 
Edges 

Plate 

Linear  A=5 .0-0.0 

Constant  A=5.0 

3D 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

3E 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5.0-0.0 

3F 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

3G 

Linear  A=1.01-1.02 

Linear  A=1.01-1.02 

3H 

Linear  A=  1.01  -  1.02 

Sinusoidal,  1  Cycle, 
A=2.0 

31 

10x50 

Constant  Space 
Plate 

20x70 
Constant  Space 
Plate 

Sinusoidal, 

1  Cycle,  A=2.0 

Sinusoidal, 

3  Cycles,  A=2.0 

3J 

50x50 
Constant  Space 
Plate 

70x100 
Constant  Space 
Plate 

Sinusoidal, 

5  Cycles,  A=2.0 

Sinusoidal, 

3  Cycles,  A=0.02 

3K 

150  X 150 
Constant  Space 
Plate 

200  X  200 
Constant  Space 
Plate 

Sinusoidal, 

7  Cycles,  A=2.0 

Sinusoidal, 

7  Cycles,  A=0.02 

3A1 

10x10 

Constant  Space 
SheU 

10x10 

Constant  Space 
Shell 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

3B1 

Linear  A=5.0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 
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20x50 
Clustered  at  all 
Edges 
Shell 


10x50 

Constant  Space 
SheU 


50x50 
Constant  Space 
SheU 


150  X 150 
Constant  Space 
SheU 


10x10 

Constant  Space 
Plate 


20x70 
Constant  Space 
SheU 


70x100 
Constant  Space 
SheU 


200  x  200 
Constant  Space 
SheU 


10x10 

Constant  Space 
SheU 


20x50 
Clustered  at  aU 
Edges 
SheU 


10x50 

Constant  Space 
Plate 


50x50 
Constant  Space 
Plate 


150  X 150 
Constant  Space 
Plate 


20x70 
Constant  Space 
SheU 


70x100 
Constant  Space 
SheU 


200  X  200 
Constant  Space 


Linear  A=5 .0-0.0 

Constant  A=5.0 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5.0-0.0 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=1.01-1.02 

Linear  A=1.01-1.02 

Linear  A=1.01  - 1.02 

Sinusoidal,  1  Cycle, 
A=2.0 

Sinusoidal, 

1  Cycle,  A=2.0 

Sinusoidal, 

3  Cycles,  A=2.0 

Sinusoidal, 

5  Cycles,  A=2.0 

Sinusoidal, 

3  Cycles,  A=0.02 

Sinusoidal, 

7  Cycles,  A=2.0 

Sinusoidal, 

7  Cycles,  A=0.02 

Linear  A=5 .0-0.0 

Linear  A=5.0-0.0 

Linear  A=5. 0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5 .0-0.0 

Constant  A=5.0 

Linear  A=5 .0-0.0 

Linear  A=5. 0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=5. 0-0.0 

Linear  A=5 .0-0.0 

Sinusoidal,  1  Cycle, 
A=2.0 

Linear  A=  1 .0 1  - 1 .02 

Linear  A=1.01-1.02 

Linear  A=  1.01  - 1.02 

Sinusoidal,  1  Cycle, 
A=2.0 

Sinusoidal, 

1  Cycle,  A=2.0 

Sinusoidal, 

3  Cycles,  A=2.0 

Sinusoidal, 

5  Cycles,  A=2.0 

Sinusoidal, 

3  Cycles,  A=0.02 

Sinusoidal, 

7  Cycles,  A=2.0 

Sinusoidal, 

7  Cycles,  A=0.02 
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This  next  set  of  rans  applies  the  irregular  structural  grid. 


Case 

Number 


Original 

Grid 


Grid  1 


Interpolation 

Grid 


10x10 
Constant  Spac. 
Plate 


50x50 

Clustered 

Plate 


10x10 
Constant  Spac. 
Shell 


50x50 

Clustered 

Shell 


Streamwise 

Function 

Description 

Spanwise  Function 
Description 

Constant  A=.5 

Constant  A=.5 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=.5-0.0 

Constant  A=.5 

Linear  A=.5-6.0 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 

Sinusoidal,  1  Cycle, 

A=.5 

A=.5 

Constant  A=.5 

Constant  A=.5 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=.5-0.0 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 

Sinusoidal,  1  Cycle, 

A=.5 

A=.5 

Constant  A=0.0025 

Constant  A=0.0025 

Linear  A=0.0025-0. 

Linear  A=-0.0025-0 

Linear  A=0.0025-0 

Linear  A=0.-0.0025 

Sinusoidal,  1  Cycle, 

Sinusoidal,  1  Cycle, 

A=0.0005 

A=0.0005 

Constant  A=.5 

Constant  A=.5 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=.5-0.0 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 

Sinusoidal,  1  Cycle, 

A=.5 

A=.5 

Constant  A=.5 

Constant  A=.5 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=.5-0.0 

Constant  A=.5 

Linear  A=.5-0.0 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 

Sinusoidal,  1  Cycle, 

A=.5 

A=.5 

Constant  A=0.0025 

Constant  A=0.0025 

Linear  A=0.0025-0. 

Linear  A=-0.0025-0 

Linear  A=0.0025-0 

Linear  A=0. -0.0025 

Sinusoidal,  1  Cycle, 

Sinusoidal,  1  Cycle, 

A=0.0005 

A=0.0005 

Analytical  Test  Category  IV  -  Diminishing  Variation 
Number  of  Test  Cases  :  30 

Test  Category  Description  :  A  rectangular,  Cartesian  grid  is  used  for  both  the  structural  and 
aerodynamic  grids.  Interpolation  of  various  functions  are  examined:  zero-gradient  functions  (constants), 
linearly  varying  fimctions,  sinusoidally  varying  functions.  A  series  of  increasingly  fine  aerodynamic  grids 
are  generated  to  ensure  that  the  interface  method  can  convert  the  function^  data  smoothly  without 
introducing  oscillations  as  the  grids  become  finer. 

Test  Case  Matrix 

Grids  are  defined  by  streamwise  x  spanwise  elements.  A  is  the  amplitude  or  function  value. 

For  each  case,  three  finer  grids  are  produced  by  doubling  the  number  of  points  in  each  direction. 


Case 

Number 

Original 

Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

4A 

10x10 
Constant  Spac. 
Plate 

10x10 
Constant  Spac. 
Plate 

Linear  A=2.5-0.0 

Linear  A=2.5-0.0 

4B 

Linear  A=2. 5-0.0 

Sinusoidal,  1  Cycle, 
A=1.0 

4C 

20x50 
Clustered  at  all 
Edges 

Plate 

Linear  A=2.5-0.0 

Constant  A=2.5 

4D 

Linear  A=2.5-0.0 

Linear  A=2.5-0.6 

4E 

Sinusoidal,  1  Cycle, 
A=1.0 

Linear  A=2.5-0.0 

4F 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 
A=1.0 

4G 

Linear  A=.505-.51 

Linear  A=.505-.51 

4H 

Linear  A=.505  -  .51 

Sinusoidal,  1  Cycle, 
A=1.0 

41 

10x50 

Constant  Space 
Plate 

20x70 
Constant  Space 
Plate 

Sinusoidal, 

1  Cycle,  A=1.0 

Sinusoidal, 

3  Cycles,  A=1.0 

4J 

50x50 
Constant  Space 
Plate 

70x100 
Constant  Space 
Plate 

Sinusoidal, 

5  Cycles,  A=1.0 

Sinusoidal, 

3  Cycles,  A=0.01 

4A1 

10x10 

Constant  Space 
SheU 

10x10 

Constant  Space 
Shell 

Linear  A=2 .5-0.0 

Linear  A=2.5-0.0 

4B1 

Linear  A=2. 5-0.0 

Sinusoidal,  1  Cycle, 
A=1.0 
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4C1 


20x50 
Clustered  at  all 
Edges 
SheU 


4D1 


4E1 


4F1 


4G1 


4H1 


411 


10x50 

Constant  Space 
SheU 


20x70 
Constant  Space 
SheU 


4J1 


50x50 
Constant  Space 
SheU 


70  X  100 
Constant  Space 
SheU 


4A2 


10x10 

Constant  Space 
Plate 


10x10 

Constant  Space 
SheU 


4B2 


4C2 


20x50 
Clustered  at  aU 
Edges 
SheU 


4D2 


4E2 


4F2 


4G2 


4H2 


412 


10  x50 

Constant  Space 
Plate 


20x70 
Constant  Space 
SheU 


4J2 


50x50 
Constant  Space 
Plate 


70  X  100 
Constant  Space 
SheU 


Linear  A=2. 5-0.0 

Constant  A=2.5 

Linear  A=2.5-0.0 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 
A=L0 

Linear  A=2.5-0.0 

Linear  A=2.5-0.0 

Sinusoidal,  1  Cycle, 
A=1.0 

Linear  A=  505-1.02 

Linear  A=.505-.51 

Linear  A=.505  -  1.02 

Sinusoidal,  1  Cycle, 
A=1.0 

Sinusoidal, 

1  Cycle,  A=1.0 

Sinusoidal, 

3  Cycles,  A=1.0 

Sinusoidal, 

5  Cycles,  A=1.0 

Sinusoidal, 

3  Cycles,  A=0.01 

Linear  A=2.5-0.0 

Linear  A=2.5-0.0 

Linear  A=2. 5-0.0 

Sinusoidal,  1  Cycle, 
A=1.0 

Linear  A=2.5-0.0 

Constant  A=2.5 

Linear  A=2.5-0.0 

Linear  A=2.5-0.6 

Sinusoidal,  1  Cycle, 
A=1.0 

Linear  A=2.5-0.0 

Linear  A=2. 5-0.0 

Sinusoidal,  1  Cycle, 
A=1.0 

Linear  A=.505-.51 

Linear  A=.505-.51 

Linear  A=.505  -  .51 

Sinusoidal,  1  Cycle, 
A=1.0 

Sinusoidal, 

1  Cycle,  A=L0 

Sinusoidal, 

3  Cycles,  A=1.0 

Sinusoidal, 

5  Cycles,  A=1.0 


Sinusoidal, 

3  Cycles,  A=0.01 


Analytical  Test  Category  V  -  1-D  Regular  Interpolation 
Number  of  Test  Cases  :  36 

Test  Category  Description  :  A  1 -dimensional,  Cartesian  grid  is  used  for  both  the  structural  and 
aerodynamic  grids.  They  represent  a  cantilever  beam  of  unit  length.  The  beam  is  originally  along  the  x- 
axis,  and  every  deflection  happens  in  the  z  direction.  Two  deflections  are  considered:  a  static  deflection 
(bending)  due  to  a  distributed  force  and  the  first  three  natural  vibration  (bending)  modes.  The  first  set  of 
cases  (test5a-r)  has  no  static  deflection,  only  the  three  bending  modes,  with  two  levels  of  maximum 

amplitude  (test5a-i,  A=1.0;  test5j-r,  A=0.1),  and  three  different  grid  sizes  (10  x  10;  100  x  100;  100  x 
500).  The  second  set  of  cases  (test5al-rl)  has  similar  structure  as  the  one  before,  but  now  there  is  a 
superposition  of  a  static  deflection  (test5al-il,  A_static  =  1.0;  test5jl-rl,  A_static  =  0.1). 

Test  Case  Matrix 

Grids  are  defined  by  streamwise  elements.  A  is  the  amplitude  or  function  value  related  to  the  bending 
vibration  modes,  while  A_static  is  related  to  a  static  bending  deflection  amplitude. 


Case 

Number 

Original  Grid 

Interpolation 

Grid 

Streamwise 

Function 

Description 

Spanwise  Function 
Description 

5a 

10 

Constant 

Spacing 

10 

Constant 

Spacing 

A=1.0  (mode  1) 
A_static  =  0.0 

5b 

A=1.0  (mode  2) 

A  static  =  0.0 

5c 

A=1.0(mode3) 

A  static  =  0.0 

5d 

A=1.0  (mode  1) 
A_static  =  0.0 

5e 

A=1.0  (mode  2) 
A_static  =  0.0 

5f 

A=1.0  (mode  3) 
A_static  =  0.0 

5g 

500 

Constant 

Spacing 

A=1.0  (mode  1) 
A_static  =  0.0 

5h 

A=1.0  (mode  2) 

A  static  =  0.0 

5i 

A=1.0  (mode  3) 
A_static  =  0.0 

5j 

10 

Constant 

Spacing 

10 

Constant 

Spacing 

A=0.1  (mode  1) 
A_static  =  0.0 

5k 

A=0. 1  (mode  2) 

A  static  =  0.0 

51 

A=0.1(mode3) 
A_static  =  0.0 
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A=0.1  (mode  1) 
A_static  =  0.0 


A=0. 1  (mode  2) 
A  static  =  0.0 


A=0.1  (mode  3) 
A  static  =  0.0 


A=0.1  (mode  1) 
A_static  =  0.0 


A=0.1  (mode  2) 
A  static  =  0.0 


A=0. 1  (mode  3) 
A  static  =  0.0 


A=1.0  (mode  1) 
A_static  =  1.0 


A=1.0  (mode  2) 
A  static  =  1.0 


A=1.0  (mode  3) 
A  static  =1.0 


A=1.0  (mode  1) 
A_static  =1.0 


A=1.0  (mode  2) 
A  static  =  1.0 


A=1.0  (mode  3) 
A  static  =1.0 


A=1.0  (mode  1) 
A_static  =  1.0 


A=1.0  (mode  2) 
A_static  =  1.0 


A=1.0(mode3) 
A  static  =1.0 


A=0. 1  (mode  3) 
A_static  =  0.1 


A=0.1  (mode  3) 
A  static  =  0.1 


A=0. 1  (mode  3) 
A  static  =  0.1 


A=0. 1  (mode  3) 
A_static  =  0.1 


A=0.1  (mode  3) 
A  static  =  0.1 


A=0.1  (mode  3) 
A  static  =  0.1 


A=0.1  (mode  3) 
A  static  =  0.1 
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5ql 

A=0. 1  (mode  3) 
A_static  =  0.1 

5rl 

A=0. 1  (mode  3) 
A_static  =  0.1 
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APPENDIX  C  -  ALGORITHM  CODES 


This  appendix  includes  the  software  necessary  to  reproduce  the  test  cases  in  this  report.  In 
order  to  run  the  NUBS  option,  it  is  necessary  to  obtain  a  DT_NURBS  SPLINE  GEOMETRY 
SUBROUTINE  LIBRARY  license.  This  license  can  be  obtained  from  Robert  Ames, 
NSWC/Carderock  Division,  ames@oasys.dt.navy.mil.  There  are  restrictions  on  the  source  files 
of  this  library. 

csdcfd.par ; 

c  user-defined  parameters 

c  imxs  =  streamwise  (x-direction)  points  on  structural  grid 

c  jmxs  =  spanwise  (y-direction)  points  on  structural  grid 

c  kmxs  =  normal  ( z-direction)  points  on  structural  grid 

c  ***  kmxs=l - always* 

c  imxa  =  streamwise  (x-direction)  points  on  aerodynamic  grid 

c  jmxa  =  spanwise  (y-direction)  points  on  aerodynamic  grid 

c  kmxa  =  normal  (z-direction)  points  on  aerodynamic  grid 

c  ***  kmxa=l - always’ 

c  nwk  =  work  array  for  nubs  (dt_nurbs) 

c  30k  appears  to  be  fine  for  all  cases  examined 

c  DT_NURBS  will  flag  if  it's  not  high  enough 

parameter  ( imxs=20 , jmxs=3 0 , kmxs=l ) 
parameter  (imxa=220 ,  jraxa=80  ,  kinxa=l) 
parameter  ( nwk= 3  0000) 
c  computed  parameters 

c  dnstr  =  total  number  of  structural  data  points  on  surface 

c  dnaro  =  total  number  of  aerodynamic  data  points  on  surface 

integer  dnstr, dnaro 

parameter  (dnaro=imxa* jmxa* kmxa, dnstr= imxs* jmxs *kmxs ) 
c 

***************************Vc****^***t»:-(^-A:****************************** 

c 

c  This  program  handles  the  4  3-D  methods 
c 

program  main 

implicit  double  precision  {a-h,o-z) 
include  'csdcfd.par’ 


external  cputim 
c 

c  xs,ys,zs 

c  sxs,sys,szs 

c  xa,yz,za 

c  sxa,sya,sza 

c  isg,jsg,ksg 

c  is,js,ks 

c  ia,ja,ka 

c 
c 

common  /aero/  xa (dnaro) , ya (dnaro) , za (dnaro) , fa (dnaro) , npts 
common  /str/  xt  (dnstr)  ,yt  (dnstr)  ,  zt  (dnstr)  ,  f t  (dnstr-t*3 )  ,nspts 
c ommon / f i 1 en / f nm 


-  structural  grid  points 

-  structural  mode  shapes  values  at  grid  points 

-  aerodynamic  grid  points 

-  calculated  aerodynamic  deflections 

-  number  of  structural  points 

-  number  of  structural  points  (  for  each  mode) 

-  number  of  aerodynamic  points 
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coitimon  /struct/  sxs  (imxs,  jrnxs,kinxs) 
sys  (imxs,  jmxs,  kmxs)  ,  szs  (imxs,  jmxs,  kmxs)  ,  is 
& , j  s , ks , isg , j  sg , ksg 

dimension  xs ( imxs , jmxs , kmxs ) , ys ( imxs , jmxs , kmxs ) , 
1  zs (imxs, jmxs, kmxs) 

dimension  f(dnaro,3) 

c  -  device  dependent  real  oldtim, time, cputim 

character*  80  fnm,  fnml ,  fnm2  ,  fnm3  ,  fnm4 
c 

c  Read  in  the  file  names  containing  the  input  data 
c 

111  continue 

c 

c  Clear  all  of  the  variables 
c 

npts=0 
nspts=0 
do  l=l,dnaro 
xa { 1 ) =0 . 0 
ya(l)=0.0 
za(l)=0.0 
fa(l)=0.0 
f (1,3)=0.0 
enddo 

do  l=l,dnstr 
xt(l)=0.0 
yt  (1)=0.0 
zt(l)=0.0 
ft{l)=0.0 
enddo 

ft (dnstr+1) =0 . 0 
ft (dnstr+2 ) =0 . 0 
ft (dnstr+3)=0.0 
c 

c  Read  in  the  new  filename  information 
c 

c***  --  device  dependent  oldtim=0.0 

write (*,*) 'Enter  the  structural  grid  filename' 
read(*, ' (A) ' , end=9000) fnml 

write (*,*)’ Enter  the  structural  data  filename' 
read { * , ' (A) ’ ) f nm2 

write (*,*)' Enter  the  aerodynamic  grid  filename’ 
read(*, ’ (A) ’ ) fnm3 

open (uni t=13 , f ile=fnml , status= ’ unknown ' ) 
open (unit=15 , f ile=fnm2 , status= ' unknown ' ) 
open (unit=17 , f ile=fnm3 , status= ' unknown ' ) 


c 

c  read  in  data  pertaining  to  structural  grid  and  data 
c 


read (13, *) isg, jsg,ksg 
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if (isg.eq.O)  isg=l 
if ( jsg.eq. 0)  jsg=l 
if (ksg.eq. 0)  ksg=l 
nspts=isg* jsg*ksg 
c 

c  Error  check  on  dimensions 

c 

if (nspts.gt .dnstr)  then 

write (6,*)  '  You  have  exceeded  the  dnstr  dimension 

1  nspts 

stop 
endif 

if (isg.gt .imxs)  then 

write (6,*)  '  You  have  exceeded  the  imxs  dimension 

1  isg 

stop 
endif 

if ( jsg.gt . jmxs)  then 

write (6,*)  '  You  have  exceeded  the  jmxs  dimension 
1  jsg 

stop 
endif 

i f ( ksg . gt , kmxs )  then 

write (6,*)  ’  You  have  exceeded  the  kmxs  dimension 

1  ksg 

stop 
endif 

c  End  error  checking 

c 

c  Read  remainder  of  structural  file 

c 

read (13,*)  (xt (m) ,m=l, nspts ) , 

Sc  (yt  (m)  ,m=l, nspts)  ,  (zt  (m)  ,m=l, nspts) 

close (13 ) 

read (15 , * ) ns 

read ( 15 , * ) is , j  s , ks 
if(is.eq.O)  is=l 
if(js.eq.O)  js=l 
if(ks.eq.O)  ks=l 

if (is .ne. isg.or. js.ne. jsg.or.ks.ne.ksg)  then 

write (6,*)  '  Grid  and  Data  Dimensions  Dont  Match' 

write(6,*)  '  I  :  ',isg,is 

write(6,*)  '  J  :  •,jsg,js 

write (6,*)  '  K  :  ',ksg,ks 

stop 
endif 
read (15, *) 

&  ( { (sxs(i, j,k) ,i=l,is) , j=l, js) ,k=l,ks) , 

Sc  { (  (sys(i,  j,k)  ,i=l,is)  ,  j=l,  js)  ,k=l,ks) , 

Sc  {  ( (szs{i,  j.k)  .i=l,is}  ,  j=l,  js!  ,k=l,ks) 

close (15) 
c 

c  read  in  data  pertaining  to  aerodynamic  grid  and  data 
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c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


read { 17 , * ) ia , j  a , ka 

if(ia.eq.O)  ia=l 
if(ja.eq.O)  ja=l 
if{ka.eq.O)  ka=l 
npts=ia* ja*ka 


Error  check  on  dimensions 
i f (npt s . gt . dnaro )  then 

write (6,*)  '  You  have  exceeded  the  dnaro  dimension 

1  npts 

stop 
endif 

if ( ia . gt . imxa)  then 

write (6,*)  '  You  have  exceeded  the  imxa  dimension 

1  ia 

stop 
endif 

if ( ja.gt . jmxa)  then 

write (6,*)  ’  You  have  exceeded  the  jmxa  dimension 

1  ja 

stop 
endif 

if (ka.gt .kmxa)  then 

write (6,*)  ’  You  have  exceeded  the  kmxa  dimension 

1  ka 

stop 
endif 

End  error  checking 

Finish  reading  aerodynamic  data 
read (17, *)  (xa(m) ,m=l,npts) ,  (ya(m) ,m=l,npts) , 

Sc  (za (m)  ,m=l,npts) 

close (17) 

fill  output  arrays  with  zeros 

do  m=l , 3 
do  1=1, npts 
f (l,m)=0.0 
enddo 
enddo 


c 

c  Prompt  user  for  which  scheme  to  use  for  interpolation 
c 

112  continue 

write ( * , 1) 
write { * , 2 ) 
write (* , 4) 
write ( * , 5 ) 
write (^ , 6) 
read ( * , * )  meth 
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c  assume  that  only  one  mode  shape  per  file! 

mode=l 

if {meth.lt.O.or.meth.gt.4)  go  to  112 

c  Call  subroutine  of  chosen  method 
c 

if{meth  -eq.  1)  then 

c*** --device  dependent  stime=cputim(oldtim) 

c  Infinite  Plate  Spline 

c  (Must  choose  what  components  here) 


write ( * , 7 ) 
read ( * , * )  ncomp 
if (ncomp . It . 4)  then 
nss=ncomp 
nee=ncomp 
else 

nss=l 

nee=3 

endif 

do  l=nss,nee 

call  load(mode, l,nspts, ft) 
call  ips (mode, ierr) 
do  m=l,npts 
f  (m,  1)  =fa  (m) 
enddo 

redefine  aerodynamic  data  (modified  in  ips) 
open (unit=17 , f ile=fnm3 , status= ’ unknown ' ) 
read  (17,'*^)ia,ja,ka 

read  (17,  *)  (xa(m)  ,m=l,npts)  ,  (ya(m)  ,m=l,npts)  , 

Sc  (za(m)  ,m=l,npts) 
close (17 ) 
enddo 

elseif(meth  .eq.  2 ) then 

Thin  Plate  Spline 
call  mq{3,f) 
elseif (meth  .eq.  3) then 

Multiquadrics 
call  mq(l,f) 
elseif (meth  .eq.  4) then 
NUBS 

call  nurbs (mode , f ) 
endif 


c  Check  amount  of  required  cpu  runtime  for  this  method 
c 

c***  —  device  dependent  time=cputim(stime) 

call  output (mode, ia, ja,ka, f ) 

close (13 ) 
close (15) 
close (17 ) 
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Q-k-kic  device  dependent  tiine=abs  {time- s time) 

call  calcmax (mode, f ) 

c***  --  device  dependent  oldtime=time 

go  to  111 
9000  continue 


c 

c 

c 

1 

2 

4 

5 

6 
7 


c 


format  statements 


format (/ //4x, ’ Enter  choice  of  interpolation  methods: 

format (7x, ’ 1]  Infinite  Plate  Splines') 

f ormat { 7x, ’ 2 ]  Thin  Plate  Spline') 

format (7x, '3]  Multi-Quadrics') 

format (7x, ’4]  NUBS' ) 

format ( ///4x, 

1*  What  kind  of  data  is  to  be  interpolated?',/, 

17x, '  1]  x-component  only  ',/, 

27x, '  2]  y-component  only  ',/, 

37x, '  3]  z-component  only 

47x, '  4]  all  three  components  ' ) 


stop 

end 


c  This  subroutine  generates  the  output  files 

c 

subroutine  output (mode , ia , j  a , ka , f ) 
implicit  double  precision  {a-h,o-z) 
include  " c sdc f d . par ' 

common  / aero /  xa ( dnaro ) , ya ( dnaro ) , za ( dnaro ) , f a ( dnaro ) , npt s 


dimens ion  f ( dnaro , 3 ) 
c ommon / f i 1 en / f nm 


characterise  ofile,nfile,mfile, Ifile, fnm 

write (6,*)  '  Enter  the  output  file  type  :  ’ 

write (6,*)  '  0  :  Plot3d  ,  1  :  SGF  ' 

read(i,*)  itype 

write (6,*)'  Enter  aerodynamic  grid  +  mode  shape  file  name’ 
read(*, ' (A) ' )nfile 

write (6,*)'  Enter  interpolated  function  file  name' 
write (6,*)'  Must  end  in  character  x  ' 
read(i, ' (A) ' )ofile 
10  continue 


nvar=l 

if (itype . eg. 0)  then 

open {unit=102 , f ile=nf ile, status= ' unknown ' ) 
write (102 , * ) ia, ja, ka 

write (102, *) ( (xa(m) +f (m, 1) ) ,m=l,npts) , 

Sc  (  (ya  (m)  +f  (m,  2 )  )  ,m=l,npts)  , 

Sc  (  ( za  (m)  +f  (m,  3  )  )  ,m=l,npts) 

write (103 , * ) ia, ja, ka 
write (103, i) {(f(m,l)) ,m=l , npts) , 
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(  (f  (m,  2)  )  ,in=l,npts)  , 
(  (f  (m,  3)  )  ,in=l,npts) 


& 

Sc 

close (102 ) 
close (103) 
go  to  1000 

open (unit =103 , file=ofile, status= 'unknown' ) 
write (103, *) ia, ja,ka,nvar 
write (103, *) (f (11, 1) , 11=1, npts) 
close(103) 

do  11=1,80 

if  (ofiledlill)  .eq.  'x'  )  ie=ll 
enddo 

of ile (1 : ie) =of ile (1 : ie-1) // 'y ' 

open (unit=103 , f ile=of ile, status= ' unknown ' ) 

write (103 , * ) ia, ja, ka,nvar 

write (103,*) (f (11,2) ,11=1, npts) 

close (103 ) 

do  11=1,80 

if { of ile (11 : 11) .eq. 'y' )  ie=ll 
enddo 

of ile (1 : ie) =of ile (1 : ie-1) // ’ z ‘ 
open (unit=103 , f ile=of ile, status= ' unknown ' ) 
write (103 , * ) ia, ja, ka, nvar 
write (103 , * ) (f (11 , 3 ) , 11=1, npts ) 
close (103 ) 
else 

open (unit=102 , file=nfile, status= 'unknown' ) 

n2=l 

nr=0 

write (102, ' (A) ' )  nfile 
write (102,*)  nz 
write (102 , * ) ia, ja, ka 
write (102, ' (A) ' )  nfile 
write (102,*)  nr 
do  k=l,ka 
do  j=l,ja 
iss= { j-1) *ia+l 
iee=j  *ia 

write ( 102 , * ) (xa (m) +f (m, 1) ,m=iss, iee) 
write  ( 102  ,  *  )  (ya  (m)  +f  (m,  2 )  ,in=iss,  iee) 
write  (102,*)  ( za  (m) +f  (m,  3 )  ,in=iss,iee) 
enddo 
enddo 
close (102) 
do  1=1,3 
if{l.eq.2)  then 
do  11=1,80 

if (of ile ( 11 : 11) . eq. 'x ' )  ie=ll 
enddo 

of ile (1: ie) =ofile (1: ie-1) // 'y ' 
else  if  (l.gt.2)  then 
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do  11=1,80 

if  (ofiledlrll)  .eq. ’y' )  ie=ll 
enddo 

of ile (1 : ie) =of ile ( 1 : ie-l) // ’ z ' 
endif 

open (unit=103 , f ile=of ile , status= ’ unknown ' ) 

do  k=l,ka 

do  j=l,ja 

iss=  { j-1)  *ia-t-l 

iee=j  *ia 

write  (103,*)  {f(rti,l)  ,in=iss ,  iee) 
enddo 
enddo 
close{103) 
enddo 
endif 
c 

1000  continue 
return 
end 
c 

c  This  subroutine  calculates  the  max/min  locations  and 

c  magnitudes 

c  (From  MPROC2D) 

subroutine  calcmax (mode , f ) 
implicit  double  precision  (a-h,o-z) 
include  “csdcfd.par' 


c 

c 

xs , ys , zs 

-  structural  grid  points 

c 

sxs, sys, szs 

-  structural  mode  shapes  values  at  grid  points 

c 

xa,yz , za 

-  aerodynamic  grid  points 

c 

sxa, sya, sza 

-  calculated  aerodynamic  deflections 

c 

isg, jsg, ksg 

“  number  of  structural  points 

c 

is, js,ks 

-  number  of  structural  points  (  for  each  mode) 

c 

c 

c 

ia , ja, ka 

-  number  of  aerodynamic  points 

common  /struct/  sxs (imxs, jmxs, kmxs) 

1, sys (imxs, jmxs, kmxs) , szs ( imxs, jmxs, kmxs) , is 
1, js, ks, isg, jsg, ksg 

common  /aero/  xa (dnaro) ,ya (dnaro) , za (dnaro) , fa (dnaro) , npts 
common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , ft {dnstr+3 ) ,nspts 
dimension  f (dnaro, 3) 


C 

C 

c 

c 

c 

C 


Add  to  the  existing  file  7  the  check  data! 
open(unit=7 , f ile= ' accuracy.dat ' , status= ‘unknown’ ) 

141  read(7, *,end=142) 
go  to  141 

142  continue 

First,  find  maximum  in  structural  data 

tmp  =  dsqrt (sxs (1, 1, 1) *sxs (1, 1, 1) 

1  +  sys  (1, 1, 1)  *sys  (1, 1, 1) 

1  +  szs (1, 1, 1) *szs (1, 1, 1) ) 
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tinp2  =  tmp 
tmp3  =  0 
locmax=l 
locmin=l 
in=0 

do  k=i,ksg 
do  j=l,jsg 
do  i=l,isg 
m=m+i 

chktmp  =dsqrt { sxs ( i , j , k) *sxs { i , j , k) 

1  -fsys  (i,  j  ,k)  *sys  (i,  j  ,k) 

1  +SZS (i, j , k) *szs (i , j , k) ) 
tmp3  =  tinp3  'f  chktmp 
i f  ( chktmp . gt . tmp )  then 
tmp  =  chktmp 
locmax  =  m 
endif 

if {chktmp.lt . tmp2 )  then 
tmp2  =  chktmp 
locmin  =m 
endif 
enddo 
enddo 
enddo 

pmax  =  tmp 
prain  =  tmp2 
pavg  =  tmp3/nspts 

C  Find  maximum  values  in  interpolated  data 

tmp  =  dsgrt(f (l,l)*f (l,l)+f (l,2)*f (l,2)+f (l,3)*f (1,3) ) 

tmp2  =  tmp 

tmp3  =  0.0 

min=0 

max=0 

do  10  m=l,npts 

chktmp  =  dsqrt (f (m,l)*f (m,l)+f (m,2) *f (m,2) 

>  +f (m, 3) *f (m, 3) ) 

trap 3  =  tmp 3  +  chktmp 
if  ( chktmp. gt . tmp)  then 
tmp  =  chktmp 
max  =  m 
endif 

i f ( chktmp .It. tmp2 )  then 
tmp2  =  chktmp 
min  =  m 
endif 

10  continue 

dmax  =  tmp 
drain  =  tmp2 
davg  =  t:mp3/npts 

C  Print  max  values 

if  (pmax.eq. 0 . 0)  then 
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pdiff  =  100*  (ditiax-pmax) 
else 

pdiff  =  100* (dmax-pmax) /pmax 
endif 

write  (6,8)  pmax,  xt  (locmax)  ,yt  (locmax)  ,  zt  ( locmax) 
write  (6,9)  dmax,  xa  (max)  ,ya  (max)  ,  za  (max) 
write (6,13)  dmax-pmax, pdiff 

write (7 , 8 )  pmax, xt (locmax) ,yt (locmax) , zt ( locmax) 
write  (7 , 9 )  dmax,  xa  (max)  ,ya  (max)  ,  za  (max) 
write (7, 13)  dmax-pmax, pdiff 

C  Print  min  values 

if  (pmin.eq.0.0)  then 

pdi f  f  =  1 0  0  * ( dmin-pmin ) 
else 

pdi f  f  =  1 0  0  * ( dmin-pmin ) /pmin 
endif 

write  (6,11)  pmin,xt  (locmin)  ,yt  (locmin)  ,  zt  (locmin) 
write  (6, 12)  dmin,xa(min)  ,ya{min)  ,za(min) 
write (6, 13)  dmin-pmin, pdiff 

write  (7,11)  pmin,xt  (locmin)  ,yt  (locmin)  ,  zt  (locmin) 
write  (7 , 12 )  dmin,  xa  (min)  ,ya  (min)  ,  za  (min) 
write  (7, 13)  dmin-pmin,  pdiff 

8  forma t (  '  The  true  maximum  is  ',gl0.4, 

1  “  at  (x,y,z)  : ' ,3 (glO.4, ■ , ' ) ) 

9  forma t (  '  The  interpolated  maximum  is  ',gl0.4, 

1  ’  at  (x,y,z)  : ' , 3 (glO .4, ' , ' ) ) 

11  format (  '  The  true  minimum  is  ',gl0.4, 

1  '  at  (x,y,z)  : ',3(gl0.4, ', »)) 

12  forma t (  '  The  interpolated  minimum  is  ',gl0.4, 

1  '  at  (x,y,z)  : ’ , 3 (glO .4,  \  ’ ) ) 

13  format (  '  The  difference  is  ' , gl3 . 5 , ’ ( ' , g9 . 3 , ' % ) ' ) 
return 

end 

subroutine  ips (mode, ierr ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  This  subroutine  solves  the  infinite  plate  spline  equations 
c  for  a  three-dimensional  surface 

c  The  equations  in  this  code  were  extracted  from  a  code  developed 
c  by  Ram  Shan  at  GTRI  in  1993  named  MPROC3D.  This  code  was  a 

c  3-D  extension  of  a  NASA-Langley  code  called  MPROC,  provided 

c  by  Beth  Rausch  in  the  Unsteady  Aerodynamics  Branch, 

c 
c 

c  The  code  assumes  that  each  mode  is  called  independently  for 
c  each  direction  (up  to  3  directions) . 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

implicit  double  precision  (a-h,o-z) 
include  'csdcfd.par' 
c 

dimension  singular (3) ,nd(3) ,emax{3) 
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coiranon  /str/  xt (dnstr) ,yt (dnstr ) , zt (dnstr) , ft (dnstr+3 ) , nspts 
common  /aero/  xa (dnaro) ,ya (dnaro) , za (dnaro) , fa (dnaro)  ,  npts 
common  /surf/  xb(dnstr) ,yb{dnstr) 

common  /work/  array ( dnstr+3 , dnstr+3 ) , v ( dnstr+3 , dnstr+3 ) , 

1  w{dnstr+3),  dum(dnstr+3) 


c 

data  eps/l.e-28/ 
data  singular/0 . , 0 . , 0 . / 

do  1=1, dnstr+3 
w(l) =0 . 0 
xb{l)=0.0 
yb(l>=0.0 
dum(l) =0 , 0 
do  11=1, dnstr+3 
array(l,ll)=0.0 
v(l,ll)=0.0 
enddo 
enddo 


c 

singular (1) 

=  5.0e-4 

c 

singular (2 ) 

=  5.0e-4 

c 

singular (3 ) 

=  l.Oe-4 

c 

singular (1 ) 

=  l.Oe-3 

c 

singular (2 ) 

=  l.Oe-3 

c 

singular (3 ) 

=  5.0e-4 

c  - 

c  check  to  see  if  surface  is  planar 

c  - 

c 

call  plane (ipdir, itmp) 

if ( ipdir . It . 1 . or . ipdir . gt . 3 )  then 

write (6,*)  ’  Error  in  plane  subroutine  ' 

write (6,*)  ’  Plane  returned  is  ipdir 

stop 
endif 

c  - 

c  ipdir  =  1  x-y  plane  splinal  matrix  data 

c  ipdir  =  2  x-z  plane  splinal  marrix  data 

c  ipdir  =  3  y~z  plane  splinal  matrix  data 

c  - 

if  (itmp.eq.l)  then 
if  ( ipdir. eq.l)  then 

c  ipdir=l  is  the  x-y  plane,  data  to  update  is  z  (i2=3) 

i2s  =  3 
i2e  =  3 
endif 

if  {ipdir. eq. 2)  then 

c  ipdir=2  is  the  x-z  plane,  data  to  update  is  y  (i2=2) 

i2s  =  2 
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i2e  =  2 
endif 

if  (ipdir.eq.3)  then 

c  ipdir=3  is  the  y-z  plane ^  data  to  update  is  x  (i2=l) 

i2s  =  1 
i2e  =  1 
endif 
else 
i2s  =  1 
i2e  =  3 
endif 


rbul  =  0.0 
rbu2  =  0.0 
rbu3  =  0.0 
rbvl  =0.0 
rbv2  =0.0 
rbv3  =0.0 


do  5  i2=i2s,i2e 
c 

c  store  appropriate  values  in  x  &  y  arrays  in  order  to  use 
c  existing  subroutines 
c 

if  (i2  .eq.  1)  then 

write (6,*)  'Processing  x~y  coordinate  data' 

call  fdinert (xt ,yt , nspts, thz,rbu3,  rbv3 ,xcg,ycg) 
do  ii=l,nspts  i  use  x  &  y  coordinates 

xb{ii)  =  (xt{ii)  -  xcg) /rbu3  !  shift  coords  to  eg 

yb{ii)  =  (yt(ii)  *  yeg) /rbv3 
c 

c  Experienced  division  by  zero  read:  beta=atan2 (yb{ii) ,xb(ii) 
c 

beta  =  atan2 (yb(ii) ,  xb(ii)+eps) 

rad  =  sqrt (xb (ii) **2  +  yb{ii)**2)  !  rotate  to  principle  axes 

xb(ii)  =  rad*cos (beta-thz) 
yb(ii)  =  rad*sin (beta-thz) 
enddo 
endif 

if  {i2  .eq.  2)  then 

write (6,*)  'Processing  x-z  coordinate  data' 
call  fdinert {xt , zt , nspts, thy, rbu2 , rbv2 , xcg, zcg) 
do  29  ii=l,nspts  1  use  x  &  z  coordinates 

xb(ii)  =  (xt{ii)  -  xcg) /rbu2  !  shift  coords  to  eg 

yb(ii)  =  (zt(ii)  -  zcg) /rbv2 
c 

c  Incase  of  Division  by  zero  beta  was  beta=atan2 (yb ( ii ) , xb ( ii ) ) 
c 

beta  =  atan2 (yb(ii) ,  xb(ii)+eps) 

rad  =  sqrt (xb (ii ) **2  +  yb{ii)**2)  !  rotate  to  principle  axes 

xb(ii)  =  rad*cos (beta-thy) 
yb{ii)  =  rad*sin (beta-thy) 

29  continue 


308 


endif 

if  (i2  .eq.  3)  then 

write (6,*)  ’Processing  y-z  coordinate  data' 

call  fdinert (yt, zt ,nspts, thx, rbul, rbvl,ycg, zcg) 
do  30  ii=l,nspts  !  use  y  &  z  coordinates 

xb(ii)  =  (yt(ii)  -  ycg) /rbul  I  shift  coords  to  eg 

yb(ii)  =  (zt(ii)  -  zcg) /rbvl 
c 

c  Division  by  zero  beta  was  :  beta=atan2 (yb ( ii ) , xb (ii) ) 
c 

beta  =  atan2 (yb ( ii) ,  xb(ii)+eps) 

rad  =  sqrt  (xb(ii)  **2  +  yb(ii)'^*2)  1  rotate  to  principle  axes 

xb(ii)  =  rad*cos (beta-thx) 
yb(ii)  =  rad*sin (beta-thx) 

30  continue 

endif 
c 

c  fill  solution  matrix  array 

c 

do  2  i=^l,nspts 
do  1  j=l,i 

r2  =  (xb(i) “xb( j ) ) **2+ (yb(i) -yb  ( j ) ) **2 
g=  r2  *  dlog(r2+eps) 
array(i,j)  =  g 
array ( j , i )  =  g 

1  continue 

2  continue 

do  3  j=l,nspts 
array {nspts+1, j )  =  1.0 
array (j ,nspts+l)  =  1.0 

3  continue 

array  (nspts-fl,nspts+l)  =  0.0 

do  4  j=l,nspts 
array {nspts+2 , j )  =  xb(j) 
array{ j ,nspts+2)  =  xb{j) 

4  continue 


array (nspts+2 , 

nspts+1 ) 

=  0.0 

array (nspts+1. 

nspts+2 ) 

=  0.0 

array {nspts+2 , 

nspts+2 ) 

=  0.0 

do  6  j=l,nspts 
array {nspts+3 , j ) 

=  yb(  j ) 

array { j , nspts+3 ) 
6  continue 

=  yb  ( j ) 

array {nspts+3 , 

nspts+1) 

=  0.0 

array (nspts+1 , 

nspts+3 ) 

II 

o 

o 

array (nspts+3 , 

nspts+2 ) 

=  0.0 

array (nspts+2 , 

nspts+3 ) 

=  0.0 
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array (nspts+3 ,  nspts+3)  =  0.0 


nl=nspts+3 

c 

C  - 

c  call  routine  to  decompose  main  matrix. 

Q  - 

call  svdcmp (nl ) 
c 

c  scale  structural  coordinates  &  cfd  grid  coordinates 
c  rotate  coordinates  to  principle  axes 

c  Select  appropriate  normal  coordinate  for  interpolation 
c 

if  (i2.eq.l)  then 

write (6,*)  ‘Calculating  xy-plane  deflections' 
do  m=l,npts 

xa(m)  =  (xa(m)  -  xcg) /rbu3 

ya(m)  =  (ya(m)  -  ycg) /rbv3 

rad  =  sqrt (xa (m) **2  +  ya{m)**2) 
beta  =  atan2 (ya (m) , xa (m) +eps) 

xa(m)  =  rad*cos (beta-thz) 
ya(m)  =  rad*sin (beta-thz) 
enddo 

elseif  (i2.eq.3)  then 

write (6,*)  'Calculating  yz-plane  deflections' 
do  m=l,npts 

ya(m)  =  (ya(m)  -  ycg) /rbul 

za(m)  =  (za(m)  -  zcg) /rbvl 

beta  =  atan2 (za (m) ,ya (m) +eps) 
rad  =  sqrt (ya (m) **2  +  za(m)**2) 
ya{m)  =  rad*cos (beta-thx) 
za(m)  =  rad*sin (beta-thx) 
enddo 

else  if  (i2.eq.2)  then 

write (6,*)  'Calculating  xz-plane  deflections' 
do  m=l,npts 

xa(m)  =  (xa(m)  -  xcg) /rbu2 

za{m)  =  (za{m)  -  zcg) /rbv2 
beta  =  atan2{za(m),  xa{m)+eps) 
rad  =  sqrt (xa (m) **2  +  za(m)**2) 
xa(m)  =  rad*cos (beta-thy) 
za(m)  =  rad*sin{beta“thy) 
enddo 
else 

write(6,*)  '  Code  error  no  plane  identified  ' , i2 

endif 

c 

ft(nspts+l)  =  0. 
ft(nspts+2)  =  0. 
ft (nspts+3)  =  0. 
c 

c  Ask  if  user  wants  to  change  the  threshold 
c 

irest=0 


310 


1 


call  chthres (nspts, irest , ipdir, singular (ipdir) ,nd{ipdir) , 
emax (ipdir)  ) 
nn=nspts+3 
nnn=dnstr+3 

call  slvdriver (nn,nnn,nd (ipdir) , singular ( ipdir) , 

1  einax{ipdir )  ) 


c 

C  - 

c  compute  deflections  at  collocation  points 

c  - 

if{i2.eq.l)  then 

c  update  2  deflections 

do  m=l,npts 

fa  (m)  =zfun  (xa  (m)  ,ya  (m)  ,  eps) 
enddo 

else  if  (i2.eq.2)  then 
c  update  y  deflections 

do  m=l,npt:s 

fa (m) =zfun (xa (m) , za (m) , eps) 
enddo 

else  if  (i2.eq.3)  then 
c  update  x  deflections 

do  m=l,npts 

fa(m)=  zfun  (ya  (m)  ,  za  (iti)  ,  eps) 
enddo 
endif 

5  continue 

c 

return 

end 

c 

c  FFFFFFFFFFFFFFFFFFFF 

function  zfun (xx, yy, eps) 
c  FFFFFFFFFFFFFFFFFFFF 

implicit  double  precision  (a-h^o-z) 
include  ' csdcfd.par ’ 

common  /str/  xt (dnstr ) ,yt (dnstr) , zt (dnstr ) , zeta (dnstr+3 ) , nspts 
common  /surf/  xi (dnstr) , eta (dnstr ) 
c  - 

c  spline  evaluation  function  for  a  symmetric  surface  spline 

c  - 

bl=zeta (nspts+1) 
b2=2eta (nspts+2 ) 
b3=zeta (nspts+3 ) 
zfun  =  bl+b2*xx+b3*yy 

do  1  i=l,nspts 

dx2  =  (xx-xi (i) ) **2 
dy2  =  (yy-eta(i) ) **2 
rl  =  dx2  +  dy2 

zfun  =  zfun  +  zeta ( i ) *rl*dlog (rl+eps ) 

1  continue 
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return 

end 


subroutine  slvdriver {n3 , mp ; nd, singular, emax) 
implicit  double  precision  (a-h^o-z) 
include  ’csdcfd.par’ 

common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , b (dnstr+3 ) , nspts 
common  /work/  u (dnstr+3 , dnstr+3 ) , v {dnstr+3 , dnstr+3 ) , 

1  w(dnstr+3),  x(dnstr+3) 

common  /file/  iunit 
c 
c 

c  Edit  diagonal 

nd  =  0.0 
wmax  =  0.0 
do  i=l,  n3 

wmax  =  max  (wmax ,  w  ( i )  ) 
enddo 

emax  =  wmax 
wmin=wmax  *  s ingu 1 ar 
do  i=l,  n3 

if  {w(i)  .It.  wmin)  then 
w(i )  =‘0.0 
nd  =  nd  +  1 
endif 
enddo 
c 

c  Call  Solver 
c 

call  svbksb{n3,  n3  ) 
c 

c  Copy  solution  matrix  into  b  vector 
c 

do  i  =  1,  n3 
b{i)  =  x(i) 
enddo 

return 

end 

C - 

subrout ine  s vbksb { m , n ) 

implicit  double  precision  (a“h,o-z) 

include  ’csdcfd.par' 

common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , b {dnstr+3 ) , nspts 
common  /work/  u (dnstr+3 , dnstr+3 ), v(dnstr+3 , dnstr+3 ) , 

1  w(dnstr+3),  x(dnstr+3) 
dimension  tmp (dnstr+3) 

C - 

C  This  subroutine  solves  Ax  =  b  where  A  =  U,  W,  V  as  returned 
C  from  svdcmp 

C  m,n  =  logical  dimensions  of  A 
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C  b  =  RHS  vector 
C  X  =  output  solution  vector 

C - 

if  (n.ne.m)  n=m 
do  j=l,n 
s=0„0 

if  (w{ j ) .ne . 0 , 0 )  then 
do  i=l,m 

s=S’fu(i,  j  )  *b(i) 
enddo 
s=s/w( j ) 
endif 

tmp ( j )  =  s 
enddo 
do  j=l,n 
s=0.0 
do  jj=l,n 

s=s+v{ j , j j ) *tmp{ j j ) 
enddo 
x{  j )  =  s 
enddo 
return 
end 

c - 

subroutine  f diner t (xf, yf , n,  th,  rbu,  rbv,  xcg,  ycg) 
implicit  double  precision  (a-h,0“Z) 
include  ’csdcfd.par’ 
c  dimension  xf (n) ,  yf (n) 

dimension  xf(dnstr),  yf(dnstr) 

Q - 

c  This  subroutine  finds  the  moments  of  inertia  for  given  coordinate  info 
c  The  moments  of  inertia  is  used  to  find  the  principle  axes  direction 
c  It  assumes  that  each  coordinate  represents  a  particle  of  mass  =  1 
c  xf,  yf  “  coordinate  info 

c  th  -  principle  axes  direction  angle  (rad) 
c  rbu  -  radius  of  gyration  in  u~direction 
c  rbv  ~  radius  of  gyration  in  v-direction 

c  - 

c 

xi  =  0.0 
yi  =  0.0 
xyi  =  0.0 
qx  =  0 . 0 
qy  =  0 . 0 
c 

c  Calculate  1st  &  2nd  moments  of  inertia 
c 

do  ii=  1,  n 

xi  =  xi  +  yf (ii) *yf (ii) 
yi  =  yi  +  xf ( ii ) *xf (ii ) 
xyi  =  xyi  -f-  xf  (ii )  *yf  (ii) 
qx  =  qx  +  yf(ii) 

qy  =  qy  +  xf(ii) 

enddo 
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c  Calculate  eg  locations 
c 

xcg  =  qy  /  n 
yeg  =  qx  /  n 
c 

c  Calculate  direction  of  principle  axes  &  principle  moments 
c 

tmp  =  xi  -  yi 
if  (tmp. It. 0.0)  then 

th  =  . 5*atan2 { -1 . 0*xyi ,  .5* tmp) 

thl  =  . 5*atan2 (xyi,  -.5* tmp) 
else 

th  =  . 5*atan2 ( -1 . 0*xyi ,  .5* tmp) 

thl  =  .  5*atan2  (xyi ,  -.5’*'tmp) 
endif 

ui  =  xi* (cos ( th) ) **2  -2 . 0*xyi*sin( th) *cos (th)  +  yi* ( sin ( th) ) **2 
vi  =  xi* (cos (thl) ) **2  -2 . 0*xyi^sin ( thl) *cos ( thl) +yi* (sin ( thl) ) **2 
c 

c  Calculate  radii  of  gyration 
c 

rbu  =  sqrt(ui/n) 
rbv  =  sqrt(vi/n) 

return 

end 

-k _ _ 

subroutine  svdcmp(m) 

implicit  double  precision  {a-h,o-z) 

include  'csdcfd.par' 

common  /work/  a (dnstr+3 , dnstr+3 ) , v {dnstr+3 , dnstr+3 ) , 

1  w(dnstr+3),  dum(dnstr+3) 
dimension  rvl(dnstr+3) 

* _ 

*  This  subroutine  performs  a  Singular  Value  Decomposition  (SVD) 

*  a  =  u  *  w  *  (v) -transpose 

*  It  is  obtained  from 

*  "Numerical  Recipes",  By  Press  &  Flannery  et  al . , 

*  Cambridge  University  Press,  1989,  pgs.  57-  64 

*  a  =  matrix  logical  dimensions  m  by  n 

*  physical  dimensions  mp  by  np 

*  u  =  stored  in  a  on  output 

*  w  =  diagonal  matrix  of  singular  values 

*  V  =  NOT  stored  as  transpose  on  output 
’'ifn>m,  fillAto  make  square  with  zero  rows 

■k _ 


n=m 

c 

c 

if  (m.lt.n)  then 

write (6,*)  ' Error : Inside  SVDCMP  routine' 

write (6,*)  'Augment  A  matrix  with  zero  rows’ 
stop 


314 


end  if 


* 


*  Householder  reduction  to  bidiagona] 

■k 


g  =  0.0 
scale  =  0.0 
anorm  =  0.0 
do  25  i=l,n 
l=i^l 

rvl (i) =scale*g 

g=0.0 

s=0.0 

scale  =  0.0 
if  (i.le.m)  then 
do  k=i,m 

scale=scale+abs (a (k, i) ) 
enddo 

if  (scale .ne . 0 . 0)  then 
do  k=i,m 

a(k,i)  =  a{k,i)/scale 
s=s+a (k,i)*a(k,i) 
enddo 
f=a{i,i) 

g=-sign ( sqrt ( s ) , f ) 
h=f *g~s 
a  (i,  i)  =f-'g 
if  (i.ne.n)  then 
do  j=l,n 
s=0.0 
do  k=i,in 

s=s+a (k, i) *a (k, j ) 
enddo 

f =s/h 
do  k=i,m 

a(k,j)  =  a (k, j ) (h, i) 
enddo 
enddo 
endif 
do  k=i,m 

a(k,i)  =  scale*a(k,i) 
enddo 
endif 
endif 

w(i)  =  scale  *  g 

g=0.0 

s=0.0 

scale=0 . 0 

if { (i.le.m) .and. (i.ne.n) )  then 
do  k=l,m 

scale=scale+abs (a (i, k) ) 
enddo 

if  (scale .ne . 0 . 0 )  then 


form 
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do  k=l,n 

a(i,k)  =  a(i,k)/scale 
s=s+a(i,k) *a(i,k) 
enddo 
f=a (i, 1) 

g=“sign(sqrt (s) , f ) 
h=f *g-s 

a(i,l)  =  f  -  g 
do  k=l,n 

rvl (k)  =  a(i,k) /h 
enddo 

if{i.ne.m)  then 
do  j=l,rti 
s=0.0 
do  k=l,n 

s=s+a( j ,k) *a(i,k) 
enddo 
do  k=l,n 

a(j,k)  =  a ( j ,k) +s*rvl (k) 
enddo 
enddo 
endif 
do  k=l,n 

a{i,k)  =  scale*a(i,k) 
enddo 
endif 
endif 

anorm=max(anorm, (abs (w(i) ) +abs (rvl (i) ) ) ) 

25  continue 
* 

*  Accumulation  of  right  hand  side  transformations 

* 

do  32  i=n, 1 , -1 

if  (i.lt.n)  then 

if  ( g . ne . 0 . 0 )  then 
do  j=l,n 

v(j,i)=(a(i,j)/a(i,l))/g 
enddo 
do  j=l,n 
s=0.0 
do  k=l,n 

s=s+a ( i , k) *v (k, j ) 
enddo 
do  k=i,n 

V (k, j ) =v(k, j ) +s*v{k, i) 
enddo 
enddo 
endif 
do  j=l,n 

v(i,j)  =  0.0 
v(j,i)  =  0.0 
enddo 
endif 

v(i,i)  =  1.0 
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g  =  rvl { i ) 

1  =  i 

32  continue 

•5«r 

*  Accumulation  of  Left  Hand  Side  transformations 

★ 

do  39  i=n,l,-l 
l=i+l 
g=w  ( i ) 

if  (i.lt.n)  then 
do  j  =  l,n 
a{i, j)=0.0 
enddo 
endif 

if  ( g . ne . 0 . 0 )  then 
g  =  1.0/g 
if  (i.ne.n)  then 
do  j=l,n 
s=0 . 0 
do  k=l,m 

s=s+a (k, i) *a (k, j ) 
enddo 

f=(s/a(i,i) )*g 
do  k=i,m 

a(k,j)=a(k,j) +f *a (k, i) 
enddo 
enddo 
endif 
do  j=i,m 

a( j , i) =a ( j , i) *g 
enddo 
else 

do  j=i,m 

a(j , i)  =  0.0 
enddo 
endif 

a{i,  i)  =  a{i,i)  +1.0 

39  continue 

* 

*  Diagonalization  of  bidiagonal  form 

* 

do  49  k=n,l,-l  1  singular  values  loop 

do  48  its=l,30  !  iteration  loop 

do  l=k,l,-l  !  test  for  splitting 

nm=l-l  !  rvl(l)  always  zero 

if  ( (abs {rvl (1) ) +anorm) . eg.anorm)  goto  2 
if  ( (abs(w(nm) )+anorm) .eq.anorm)  goto  1 
enddo 

1  c=0.0  !  cancellation  of  rvl(l),  if  1>1 

s=1.0 
do  i=l,k 

f  =  s^rvl (i) 
rvl(i)  =  c*rvl(i) 
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if  ( (abs { f ) +anorm) . eq. anorm)  goto  2 
g  =  w(i) 

h  =  sqrt ( f *f +g*g) 
w(i)  =  h 
h  =  1.0/h 
c  =  (g*h) 
s  =  -(f*h) 
do  j=l,m 

y=a(  j  ,nm) 

2=a( j , i) 

a(j,nin)  =  (y*c)  +  (z*s) 
a(j,i)  =  “(y^s)  +  (z*c) 
enddo 
enddo 

2  z  =  w(k) 

if  (l.eq.k)  then  i  Convergence 

if  (z. It. 0.0)  then  !  singular  value  made  >  0 

w(k)  =  -z 
do  j=l,n 

v(j,k)  =  -v(j,k) 
enddo 
endif 
goto  3 
endif 

if  (its.eq.30)  then 

write (6,*)  'Error:  In  SVDCMP  routine' 
write (6,*)  'No  convergence  in  30  iterations' 
write (6,*)  'Matrix  cannot  be  inverted!' 
stop 
endif 
X  =  w(l) 
nm  =  k-1 
y  =  w(nm) 
g  =  rvl (nm) 
h  =  rvl(k) 

f  =  ((y-z)*(y+z)+(g-h)*(g+h))/(2.0*h*y) 
g  =  sqrt(f*f  +  1.0) 

f  =  ( (x-z) * (x+z) +h* ( (y/ (f+sign(g, f ) ) ) -h) ) /x 

c  Next  QR  transformation 

c  =  1.0 
s  =  1 . 0 
do  j=l,nm 
i=j-fl 
g=rvl ( i ) 
y=w { i ) 
h=s*g 
g=c*g 

z=sqrt (f*f+h*h) 
rvl ( j )  =  z 
c  =  f /z 
s  =  h/z 

f  =  (x*c)+(g*s) 
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g  =  -(x*s)  +  {g*c) 
h  =  y*s 
y  =  y*c 
do  jj=l,n 

X  =  v(jj,j) 
z  =  V  ( j  j  ,  i ) 
v(jj,j)  =  {x’^c)  +  (z*s) 

=  -(x*s)+(z*c) 

enddo 

z  =  sqrt(f*f  +  h*h) 
w(  j )  =  z 

if  (z.ne.O.O)  then 
z  =  1.0/z 
c  =  f'^z 
s  =  h'^z 
endif 

f  =  (c*g)  +  (s*y) 

X  =  “{s*g)  +  (c*y) 
do  jj  =  1,  in 

y  = 

z  =  a{ j j , i) 

=  (y^c)  +  (z*s) 
a(jj,i)  =  '(y*s)  +  (z*c) 
enddo 
enddo 

rvl(l)  =0.0 
rvl(k)  =  f 

w(k)  =  X 

48  continue 

3  continue 

49  continue 
return 
end 

C  - - 

subroutine  chthres (nspts, irest , idir, singular, nd, emax) 
implicit  double  precision  (a-h,o-z) 
character's  plane (3) 
real  tmp 

planed)  =  '  y-z  ' 

plane (2)  =  '  x-z  ' 

plane (3)  =  '  x-y  ' 

write (6,*)  'Do  you  want  to  change  the  threshold? (y/n) ’ 
write (6, 103) 

if  ( (ans.eq. 'y' ) .or. (ans.eq. ’Y' ) )  then 
write (6, *) 

write ( 6 , * )  ’ - ' 

write ( 6 , * )  ' CHANGING  THRESHOLDS ' 

write (6,*)  ' - • 

write (6, 100)  'plane',  'threshold', 'values  deleted',  'max  eigen' 

write  (6, 100)  ' - ' - ”  ,  ’ - > _ » 

write(6,101)  plane{idir),  singular,  nd,  nspts,  emax 
write (6, *) 
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irest  =  1 

continue 

write(6,104)  'Enter  threshold:’ 
write (6, 103) 
read  ( 5  ,  )  tmp 

write { 6 , * ) 

write (6,*)  'You  have  entered:' 
write  (6,105)  ' Threshold: tmp 

write (6,*)  'Is  that  correct (y/n) ? ' 
read(5 , ' (a) ' )  ans 

if  { (ans .eq. 'y' ) .or . (ans.eq. ' Y' ) )  then 
singular  =  tmp 
goto  99 
else 
goto  10 
endif 
end  if 


c 

c 

format  statements 

c 

100 

format  (lx,  a5,  3x, 

a9,  3x,  al4, 

3x,  a9) 

101 

format  (lx,  a5 ,  3x, 

e8 . 1 ,  3x,  ' ( 

’  ,i3, • / ' ,i3, ’ ) 

103 

format  (  ' - > ' , $ ) 

104 

format (a, lx, i) 

105 

format (a,lx,i,e8.1) 

c 

99 

continue 

ans= 'n' 
return 
end 


c 

c 

c  SUBROUTINE  MQ 


c  Multiquadric -Biharmonic  Method 

c 

c  Created:  SEP06,95 

c  Last  Modified: 

c 

c 

subroutine  mq{naux,fo) 


c 


implicit  none 


c 


c 


c 


integer 

mqpt,NWK 

integer 

imxs , jmxs , kmxs , nmxs 

integer 

imxa,  jmxa,  kinxa,ninxa 

include 

' csdcfd.par ' 

include 

' mq . par ' 

integer 

naux 
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double  precision  f i {dnstr , 3 ) , fo (dnaro, 3 ) 
c 

double  precision  rmin^rmax 
c 

integer  npi , npo 

double  precision  xi,yi,zi,ft 

double  precision  xo (dnaro) , yo (dnaro) , zo (dnaro) , fa (dnaro) 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  str  coiranon  contains  the  structural  surface  data 

c 

c  nspts  =  total  number  of  points  on  the  surface 

c  xi(dnstr)  =  Cartesian  X  location  of  data  points 

c  yitdnstr)  =  Cartesian  Y  location  of  data  points 

c  zi(dnstr)  =  Cartesian  Z  location  of  data  points 

c  ft(dnstr)  =  Local  data  to  be  interfaced 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
common  /str/  xi (dnstr) ,yi {dnstr ) , zi (dnstr) , f t (dnstr+3 ) , npi 
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

c  aero  common  contains  the  aerodynamic  (CFD)  surface  data 

c 

c  npts  =  total  number  of  points  on  the  surface 

c  xo{dnar6)  =  Cartesian  X  location  of  data  points 

c  yo{dnaro)  =  Cartesian  Y  location  of  data  points 

c  2o{dnaro)  =  Cartesian  Z  location  of  data  points 

c  fa{dnaro)  =  Local  data  to  be  interfaced 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
common  /aero/  xo,yo, zo, fa, npo 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  struct  common  contains  the  structural  mode  data 

c 

c  sxs(imxs, jmxs,kmxs)  =  Cartesian  X  location  of  data  points 

c  sys{imxs, jmxs,kmxs)  =  Cartesian  Y  location  of  data  points 

c  szs {imxs, jmxs,kmxs)  =  Cartesian  Z  location  of  data  points 

c  isg  =  total  number  of  points  along  the  x-direction 

c  jsg  =  total  number  of  points  along  the  y-direction 

c  ksg  =  total  number  of  points  along  the  z-direction 

c  is  =  points  along  the  x-direction 

c  js  =  points  along  the  y-direction 

c  ks  =  points  along  the  z-direction 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

integer  is, js,ks, isg, jsg, ksg 

double  precision  sxs (imxs, jmxs, kmxs) , sys (imxs, jmxs, kmxs) 
double  precision  szs (imxs, jmxs, kmxs) 
c 

common  /struct /sxs 
&, sys, szs 
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is , j  s , ks , isg, j  sg, ksg 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c....  Local  variables 
c 

integer  i,j,k,m 

integer  ni , no 

integer  ninterv 

integer  idiv, jdiv, kdiv 

integer  nscale 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c....  Dynamic  Memory  (real  and  integer  in  two  separated  spaces) 
c 

integer  nrl , nr2 , nr3 , nr4 , nrS , nr6 , nr7 , nr8 

integer  nr9 , nrlO , nrll , nrl2 , nrl3 , nrl4 , nrl5 

integer  nil , ni2 ,ni3 , ni4 

integer  next i , nextr , nmaxiv , nmaxrv 

integer  ivect (nnmaxi) 

double  precision  rvect (nnmaxr) 
c 

common/point/  next i , nextr, nmaxiv, nmaxrv 

common/memoi/  ivect 

common/memor/  rvect 

c 

nmaxiv=  nnmaxi 
nmaxrv=  nnmaxr 
c 

open(unit=27 , f ile= ’ rpar ' ) 
read (27,*)  rmin,rmax 
read (27,*)  nscale 
close (27 ) 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c 

c....  Basic  parameters  calculation 
c 

c .  Total  number  of  input  (structural)  points - >  (npi) 

c 

c .  Total  number  of  output  (aerodynamic)  points - >  (npo) 

c 

c .  Maximiim  number  of  points  within  a  sub-region 


c 

ni  =  npi 
no  =  npo 
c 

c....  Estimate  the  number  of  subdivisions  necessairy  in  each  direction 
c 

idiv  =  isg/imax  +  1 
jdiv  =  jsg/jmax  +  1 
kdiv  =  ksg/kmax  +  1 
c 


322 


c....  and  the  total  nnmber  of  sub-regions 
c 

ninterv  =  idiv* jdiv*kdiv 
c 

c. . , .  Memory  allocation 
c 

c . . - o - »  Real  part 
c 


c 

nrl 

.  ..  xsi (ni , ninterv) 

c 

nr2 

.  . .  ysi (ni , ninterv) 

c 

nr3 

.  ..  zsi (ni , ninterv) 

c 

nr  4 

, f si (ni , 3 , ninterv) 

c 

nr  5 

.  . .  xso (no , ninterv) 

c 

nr  6 

.  . .  yso (no, ninterv, ) 

c 

nrV 

...  z so (no , ninterv, ) 

c 

nr  8 

. . .  fso{no, 3, ninterv) 

c 

c 

nr  9 

.  . .  xi2 (npi ) 

c 

nrlO 

. . .  yi2 (npi) 

c 

nrll 

. . .  zi2 (npi) 

c 

nrl2 

. . .  xo2 (npo) 

c 

nrl3 

.  . .  yo2 (npo) 

c 

nrl4 

. . .  zo2 (npo) 

c 

nrl 

=  1 

nr2 

=  nrl  +  ni*ninterv 

nr  3 

=  nr2  +  ni*ninterv 

nr4 

=  nr3  4-  ni*ninterv 

nr5 

=  nr4  +  3*ni*ninterv 

nr6 

=  nr 5  +  no*ninterv 

nr7 

=  nr6  +  no*ninterv 

nr  8 

=  nr7  +  no*ninterv 

nextr 

=  nr8  +  3 ’"'no*  ninterv 

c 

nr9 

=  nextr 

nr  10 

=  nr9  +  npi 

nrll 

=  nrlO  +  npi 

nrl2 

nrll  +  npi 

nrl3 

=  nrl2  +  npo 

nrl4 

=  nrl 3  +  npo 

nrl5 

=  nr 14  +  npo 

c 

c.  . 

.  . . .  Integer  part 

c 

c 

nil 

...  conecti(npi) 

c 

ni2 

.  . .  conecto (npo, 17) 

c 

ni3 

...  npis (ninterv) 

c 

ni4 

.  . .  npos (ninterv) 

c 

nil 

=  1 

ni2 

=  nil  +  npi 

ni3 

=  ni2  +  17*npo 

ni4 

=  ni3  +  ninterv 

next! 

=  ni4  +  ninterv 
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write  (*,*)  'Last  allocated  integer  =:',nexti 

write (*, *) •**************^********************************' 
write (*,*) 'PARAMETERS  FOR  THIS  PROBLEM' 
write { * , * 
write ( * / * 
write f* 
write ( * , * 
write (*, * 
write ( * , * 
write ( * , * 
write ( * , * 
write {* ,* 
write { * , * 
write (*, * 
write ( * , * 
write ( * , * 
write { * , * 
write ( * , * ) 

if (nmaxrv. It .nr 15 . or .nmaxiv. It .nexti)  then 
write{*,*)  'NOT  ENOUGH  MEMORY  FOR  THIS  CASE' 
write (*,*)  'Last  allocated  integer  position  =', nexti 
write(*,*)  'Maximum  allocated  integer  position  =', nmaxiv 
write'(*,*)  'Last  allocated  real  position  =’,nrl5 
write(*,*)  'Maximxom  allocated  real  position  =', nmaxrv 
if (nmaxrv. It .nrl 5  )  STOP  'More  real  memory  is  necessary' 
if (nmaxiv. It .nexti)  STOP  'More  integer  memory  is  necessary' 
end  if 


'npi 

npo 

1 

, npi , npo 

'ni 

no 

1 

, ni , no 

'  dnstr 

dnaro 

t 

, dnstr, dnaro 

'  idiv 

jdiv 

t 

, idiv, jdiv 

'  isg 

jsg 

ksg  ' 

, isg, jsg, ksg 

'  is 

js 

ks  ' 

, is  , j  s  , ks 

'  imax 

jmax 

kmax ' 

, imax , j  max , kmax 

'  idiv 

jdiv 

kdiv' 

, idiv , j  div , kdiv 

'  nexti 

nextr 

, nexti , nextr 

'  nnmaxi 

nnmaxr  ' 

,  nnmaxi ,  nnmaxr 

'  ninterv 

» 

, ninterv 

.  Put  the  input  modes  in  a  working  format 


m“0 

do  k=l,ksg 
do  j=l,jsg 
do  i=l,isg 
m=m+l 

fi(m,  1)  =  sxs(i,j,k) 
fi(m,2)  =  sys(i,j,k) 
fi(m,3)  =  szs(i,j,k) 
enddo 
enddo 
enddo 


.  Transfer  the  working  space  and  constants  to 


the  MQ  solver 


call  mql 

2 

3 

4 

5 

6 


( dnaro , dns tr , npi , npo , ni , no , nint erv , idiv , j  div , kdiv , 
rmin, rmax, naux, nscale, 

ivect (nil ) , ivect (ni2 ) , ivect (ni3 ) , ivect (ni4) , 

xi , yi , zi , f i , xo , yo , zo , f o , 

rvect (nr9 ) ,  rvect (nrlO) , rvect (nrll) , 

rvect (nrl2) , rvect {nrl3) , rvect (nrl4) , 

rvect (nrl) , rvect (nr2 ) , rvect (nr3 ) , rvect (nr4) , rvect (nrS ) , 
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rvect  (nr6 )  ,  rvect  (nr7 )  ,  rvect  (nr8 )  ) 


c 

c . . _  END  OF  SUBROUTINE 
c 

write (*, *) 'END' 
write ( * , * ) 
c 

return 

end 


c 

c 

C  SUBROUTINE  MQl 

c 

c  Multiquadric-Biharmonic  Method  -  Solution  Routine 
c 

c  Created:  SEP07,95 

c  Last  Modified: 

c 

Q*********************************************************************** 

c 


c 

c 


c 

c 

c 


c 


subroutine  mql  (dnaro,dnstr,npi,npo,ni,no,ninterv, idiv, jdiv,kdiv, 

1  rmin, rmax,naux,nscale, 

2  conecti , conecto , npis , npos , 

3  xi0,yi0,2i0, f i ,xo0 ,yo0 , zoO , fo, 

4  xi, yi , zi ,xo,yo, zo, 

5  xsi,ysi, zsi, fsi,xso,yso, zso, fso) 


implicit  none 

integer 

integer 

integer 

integer 

integer 

double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 

,  . .  Local  variables 


integer 

integer 

integer 

integer 

integer 

integer 


dnaro, dnstr 

npi , npo , ni , no , ninterv, naux , ns cal e 
idiv, jdiv, kdiv 
conecti (npi ) , npis (ninterv) 
conecto (npo , 9 ) , npos (ninterv) 
rmin ,  rmax 

xiO (dnstr) ,yiO (dnstr) , ziO (dnstr) 
xoO (dnaro) ,yo0 (dnaro) , zoO (dnaro) 
xi (npi) ,yi (npi) , zi (npi) , fi (dnstr, 3) 
xo{npo) ,yo(npo) ,zo(npo) ,fo{dnaro,3) 
xsi (ni, ninterv) ,ysi (ni, ninterv) 
zsi (ni , ninterv) , f si (ni , 3 , ninterv) 
xso (no, ninterv) ,yso (no, ninterv) 
zso (no, ninterv) , fso (no, 3, ninterv) 


i , interv 

nrl , nr2 , nr3 , nr4 , nrS , nr 6 , nr7 , nr 8 , nr9 
nil 

maxni , maxno , maxn 

next i , nextr , nnmaxi , nnmaxr 
ivect (1) 
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double  precision  rvect(l) 
c 

common /point/  nexti , nextr , nnmaxi , nnmaxr 

common/memor/  rvect 

cominon/memoi/  ivect 

c 

c....  Put  the  input/output  grids  in  a  working  format 
c 

do  i=l,npi 

xi (i)  =  xiO (i) 
yi(i)  =  yiO(i) 
zi(i)  =  ziO(i) 
end  do 
c 

do  i=l,npo 

xo(i)  =  xoO (i) 
yo(i)  =  yoO (i) 
zo(i)  =  zoO(i) 
end  do 
c 

c....  Scale  the  domain  to  a  unity  cube  [0,1]  x  [0,1]  x  [0,1] 
c 

if (nscale.eq. 1)  then 

write (*,*)' Scale  the  domain  to  a  unity  cube 
write  ( *  ,  ) 
end  if 

call  scalesr  (nscale, npi , npo, naux, 

1  xi , yi , zi , xo , yo , zo ) 

c 

c. . . .  Partition  the  given  domain 
c 

write (*,*)’ Partition  the  given  domain  (x-y-z  plane)  ... 
write (*, *) 

call  partit  (idiv, jdiv, kdiv,npi ,ni, npo, no, 

1  ninterv, dnstr , dnaro, 

2  xi , yi , zi , f i , xo, yo , zo , 

3  xsi,ysi, zsi, fsi,xso,yso, zso, 

4  conecti , conecto,npis,npos) 
c 

c....  Local  memory  allocation  (real  part) 
c 

maxni  =  0 
maxno  =  0 
do  i=l, ninterv 

write ( * , * ) ' interv  npis { interv) ' , i , npis { i ) 
write ( * , * ) ' interv  npos { interv) ' , i , npos { i ) 
if (npis (i) .gt. maxni)  maxni  =  npis(i) 
if (npos (i) .gt. maxno)  maxno  =  npos(i) 
end  do 

if (maxni .gt .maxno)  then 
maxn  =  maxni 
else 

maxn  =  maxno 
end  if 
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c 

nrl 

B  (maxni ,  maxni ) 

c 

nr2 

wkarear (maxn) 

c 

nr  3 

BIG (maxno , maxni ) 

c 

nr  5 

R ( maxni , naux ) 

c 

nr7 

RI (maxn, naux) 

c 

nr  9 

alpha (maxni ) 

nrl 

= 

nextr 

nr2 

= 

nrl  +  maxni *maxni 

nr  3 

= 

nr2  +  maxn 

nr  5 

= 

nr3  +  maxno*maxni 

nr  7 

= 

nr5  +  maxni *naux 

nr9 

= 

nr 7  +  maxn* naux 

nextr 

= 

nr 9  +  maxni 

c 

c .  ,  . 

.  .  Local 

memory  allocation  (integer  part) 

c 

c 

nil 

wkareai (maxn) 

c 

nil 

= 

nexti 

nexti 

nil  +  maxn 

c 

if  (nninaxr .  It  .nextr .  or  .nninaxi  .  It  .nexti)  then 
write(*,*)  'NOT  ENOUGH  MEMORY  FOR  THIS  CASE' 
write (*,*)  'Last  allocated  integer  position  =', nexti 
write{^,*)  'Maximiom  allocated  integer  position  =',nnmaxi 
write {*,*)  'Last  allocated  real  position  =', nextr 
write(*,*)  'Maximnin  allocated  real  position  =', nninaxr 
if  (nninaxr .  It ,  nextr )  STOP  'More  real  memory  is  necessary' 
if (nnmaxi . It . nexti )  STOP  'More  integer  memory  is  necessary' 
end  if 
c 

C-...  Perform  the  MQ/TPS  interpolation  in  each  sub-region 
c 

write(*, *) 'Perform  the  interpolation  in  each  sub-region 
write ( * , * ) 

do  interv  =  1,  ninterv 


c 

c .  Non-dimensionalization  of  the  coordinates  for  a 

c  given  sub-region 

c 


if (nscale .eq. 1)  then 

write (*,*)■ Scaling  sub-region',  interv,' 
write { * , * ) 
end  if 

call  scalesr  {  nscale, npis (interv) ,npos (interv) , naux, 

1  xsi (1, interv) ,ysi (1, interv) , zsi ( 1 , interv) , 

2  xso (1, interv) , yso ( 1 , interv) , zso ( 1 , interv)  ) 
c 

C .  Evaluate  the  interpolated  function  (fso)  for  the  sub-region 

c 

write {*,*)' Interpolating  for  sub-region',  interv,'  ...' 
write ( * , * ) 
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call  inter  (maxni,maxno,inaxn,naux,npis (interv) ,npos ( interv) , 

1  ni , no , rmin , rmax , 

2  xsi (1 , interv) ,ysi ( 1 , interv) , zsi { 1 , interv) , 

3  xso (1, interv) ,yso (1, interv) , zso ( 1 , interv) , 

4  rvect (nrl) , rvect (nrS) , 

5  rvect (nr2 ) , ivect (nil) , rvect {nr3 ) , rvect (nr7 ) , 

6  rvect (nr9) , fsi (1,1, interv) , 

1  f so {1 , 1, interv)  ) 

c 

end  do 
c 

c . . . .  Average  the  interpolated  function  over  the  overlaped  areas 
c 

write {*,*) 'Average  over  the  overlaped  areas 
write ( * , * ) 

call  overlap  (dnaro,npo,no,ninterv, fso, conecto, 

1  fo) 

c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 


c 

c 

C 

c  SUBROUTINE  OVERLAP 

c 

c  Evaluate  the  value  of  the  output  function  that  belongs  to  an 

c  overlaping  area  by  simply  weighting  the  interpolated  result  that 

c  comes  from  the  diferent  sub-regions 

c 

c  Created:  SEP08,95 

c  Last  Modified: 

c 

c 

subroutine  overlap  (dnaro,npo,nno,ninterv, fso, conecto, 

1  fo) 


c 

c 


implicit  none 

integer  dnaro , npo , nno , ninterv 

integer  conecto (npo, 17 ) 

double  precision  f so (nno , 3 , ninterv) 
double  precision  fo (dnaro, 3) 


c 

integer  m , i , nint , naux , interv , no 


c 

do  m=l,npo 

nint  =  conecto(m,l) 

if (nint. gt. 17)  STOP  'at  overlap  -  nint  >  9' 
do  i=l^nint 


328 


naux  =  2* i 

interv  =  conecto (m,naux) 
no  =  conecto  {m,naux-^l) 

fo(m,l)  =  fo{in,l)  +  f so  (no,  1,  interv) /nint 

fo(in,2)  =  fo(m,2)  +  f  so  (no,  2 ,  interv) /nint 

fo(iti,3)  =  fo(in,3)  +  f  so  (no,  3  ,  interv) /nint 

end  do 
end  do 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

C 

c  SUBROUTINE  SCALESR 

c 

c  Scales  the  sub-region  to  a  unity  cube  [0,1]  x  [0,1]  x  [0,1] 
c 

c  Created:  SEP07,95 

c  Last  Modified: 


c 

c 

c 

c 

c 

c 

c 

c 

c 


subroutine  scalesr  (nscale , npi , npo , naux , 

xsi,ysi, zsi,xso,yso, zso) 

implicit  none 

integer  nscale , npi , npo , naux 

double  precision  xsi (npi ) ,ysi (npi ) , zsi (npi ) 
double  precision  xso (npo) ,yso (npo) , zso (npo) 

integer  i 

double  precision  xmin,  xmax,ymin,yinax,  zmin,  zmax 
double  precision  auxx, auxy, auxz , dx, dy, dz 

double  precision  eps 
parameter  (eps=l . OD-14) 

Scale  the  domain  to  a  unit  cube  (  [0,1]  x  [0,1]  x  [0,1]  ) 

. .  Find  the  min.  and  max.  coordinate  values  along  each  direction 
considering  all  the  point  involved  in  the  sub-region  (both  input 
as  well  as  output  points) 


xmax  =  xsi{l) 
xmin  =  xsi(l) 
ymax  =  ysi(l) 
ymin  =  ysi(l) 
zmax  =  zsi(l) 
zmin  =  zsi(l) 
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call  mimax  {npi , xsi , ysi , zsi , npi , 

1  xmin ,  xitiax ,  ymin ,  ymax ,  zmin ,  zmax ) 

c 

dx  =  xmax  -  xmin 

dy  =  ymax  -  ymin 

dz  =  zmax  -  zmin 

c 

c....  For  the  Thin-Plate  Spline  Method 
c  (changes  from  2-D  to  S-D  analysis) 

c 

c  naux  =  2  -->  1-D  sub-domain 

c  =3  — >  2-D  sub-domain 

c  =  4  -->  3-D  sub-domain 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 


if (naux.eq. 2 . or .naux. eq. 3 .or .naux. eq. 4)  then 
if (dabs (dx) . gt . eps)  then 
i f ( dabs { dy ) . gt . eps )  then 
if (dabs (dz) .gt.eps)  then 
naux  =  4 
else 

naux  =  3 
end  if 
else 

naux  =  2 
end  if 
end  if 
end  if 

.  ...  If  scale  is  not  to  take  place  (nscale .ne . 1) ,  return  to  the 
calling  routine 

if (nscale .ne . 1)  RETURN 

call  mimax  (npo, xso,yso, zso,npo, 

1  xmin ,  xmax ,  ymin ,  ymax ,  zmin ,  zmax ) 

.  All  grid  points  have  coordinates  between  [0,1] 

.  . . .  Note:  If  there  is  no  variation  along  one  direction, 
it  is  made  the  constant  equal  to  zero  as  part 
of  the  scaling  process 

dx  =  xmax  -  xmin 

dy  =  ymax  -  ymin 

dz  =  zmax  -  zmin 

if (DABS (dx) .gt.eps)  then 

.  . . .  Structural  grid  along  x 

do  i=l,npi 

xsi(i)  =  {  xsi(i)  -  xmin  )  /  dx 
end  do 


330 


c . . . .  Aerodynamic  grid  along  x 
c 

do  i=l,npo 

xso(i)  =  (  xso(i)  “  xmin  ) 
end  do 
c 

else 

c 

c . . . .  Structural  grid  along  x 
c 

do  i=l,npi 

xsi{i)  =  xsi(i)  -  xmin 
end  do 
c 

c . . . .  Aerodynamic  grid  along  x 
c 

do  i=l,npo 

xso(i)  =  xso(i)  “  xmin 
end  do 
c 

end  if 
c 

c - 

c 

if (DABS (dy) .gt .eps)  then 
c 

c. . . .  Structural  grid  along  y 
c 

do  i=l,npi 

ysi(i)  =  (  ysi(i)  -  ymin  ) 
end  do 
c 

c . . . .  Aerodynamic  grid  along  y 
c 

do  i=l,npo 

yso{i)  =  (  yso(i)  -  ymin  ) 
end  do 
c 

else 

c 

c. . . .  Structural  grid  along  y 
c 

do  i=l,npi 

ysi{i)  =  ysi{i)  -  ymin 
end  do 
c 

c. . . .  Aerodynamic  grid  along  y 
c 

do  i=l,npo 

yso(i)  =  yso(i)  -  ymin 
end  do 
c 

end  if 
c 


/  dx 


/  dy 


/  dy 
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c 

if (DABS (dz) .gt.eps)  then 
c 

c. . . .  Structural  grid  along  z 
c 

do  i=l,npi 

zsi(i)  =  {  zsi(i)  -  zmin  )  /  dz 
end  do 
c 

c. , . .  Aerodynamic  grid  along  z 
c 

do  i=l,npo 

zso(i)  =  (  zso(i)  -  zmin  )  /  dz 
end  do 
c 

c....  For  the  Thin-Plate  Spline  Method 
c  (changes  from  2-D  to  3-D  analysis) 

c 

else 

c 

c....  Structural  grid  along  z 
c 

do  i=l,npi 

zsi(i)  =  zsi(i)  -  zmin 
end  do 
c 

c . . . .  Aerodynamic  grid  along  z 
c 

do  i=l,npo 

zso(i)  =  zso(i)  -  zmin 
end  do 
c 

end  if 
c 

c - . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

c 

c  SUBROUTINE  PARTIT 

c 

c  Performs  the  domain  partition  for  the  MQ  method 

c 

c  Created:  SEP04,95 

c  Last  Modified: 

c 

^************************************.*********************************** 

c 

subroutine  partit  (idiv, jdiv, kdiv, npi,nni,npo,nno, 

1  ninterv, dnstr , dnaro, 

2  xi,yi, zi, fi,xo,yo, zo. 
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c 


3 

4 


implicit  none 


xsi ,ysi , zsi, f si ,xso,yso, zso, 
conecti , conecto , npis , npos ) 


c 


c 


c 

c 


c 

c 

c 


c 


c 

c 

c 

c 

c 


c 


c 


c 


integer 

integer 

double  precision 
double  precision 

integer 

integer 

double  precision 
double  precision 
double  precision 
double  precision 

integer 

integer 

integer 

double  precision 
double  precision 
double  precision 

.  .  Initialize  arrays 

do  i=l,npi 

conecti (i)  =  0 
end  do 


idiv , j  div , kdiv , npi , nni , npo , nno 
ninterv, dnstr , dnaro 
xi (npi) ,yi (npi) , zi (npi) , fi (dnstr, 3) 
xo (npo) ,yo (npo) , zo (npo) 

npis (ninterv) ,npos (ninterv) 
conecti (npi) , conecto (npo, 17 ) 
xsi (nni, ninterv) ,ysi (nni, ninterv) 
zsi (nni , ninterv) , f si (nni , 3 , ninterv) 
xso (nno, ninterv) ,yso (nno, ninterv) 
zso (nno, ninterv) 

ij  .  ji 

i,  j  ,k,m,  interv,ni,no,  ii,  j  j 
naux , auxi , auxo 

deltax, deltay , deltaz , tolx, toly, tolz 
xmin ,  xmax ,  ymin ,  ymax ,  zmin ,  zmax 
xminO ,  yminO ,  zminO 


do  j=l,9 
do  i=l,npo 

conecto (i,j)  =  0 
end  do 
end  do 

Determine  delta_x,  delta  and  delta__z  based  on  the  number  of 
subdivisions,  as  well  as  the  size  of  the  overlaping  region  based 
on  a  percentage  of  the  size  of  the  interval  (ass\imed  to  be  10%) 

xmax  =  xi  ( 1 ) 
xminO  =  xi ( 1 ) 
ymax  =  yi  ( 1 ) 
yminO  =  yi  ( 1 ) 
zmax  =  zi(l) 
zminO  =  zi(l) 

call  mimax  (npi , xi , yi , zi , npi , 

1  xminO  ,  xmax, yminO , ymax,  zminO  ,  zmax) 

call  mimax  (npo,xo,yo, zo,npo, 

1  xminO,  xmax,  yminO,  ymax,  zminO,  zmax) 
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deltax  =  {xmax  -  xminO ) /df loat (idiv) 
deltay  =  (yroax  -  yminO ) /df loat ( jdiv) 
deltaz  =  (zmax  -  zminO ) /df loat (kdiv) 


c 

c .  This  can  only  be  used  when  one  has  a  unit  cube 

c  deltax  =  1 . 0/df loat (idiv) 

c  deltay  =  1 . 0/df loat (jdiv) 

c  deltaz  =  1 . 0/df loat (kdiv) 

c 


tolx  =  0.1*deltax 
toly  =  O.l^deltay 
tolz  =  0.1*deltaz 
c 

c. . . .  Find  the  association  between  a  grid  point  and  the  given  region 
c 

interv  =  0 
c 

do  k=l,kdiv 

zmin  =  zminO  +  (k“l)*deltaz  -  tolz 
zmax  =  zmin  +  deltaz  +  2.0*tolz 
c 

do  j=l,jdiv 

ymin  =  yminO  +  (j-l)*deltay  -  toly 
ymax  =  ymin  +  deltay  +  2.0*toly 
c 

do  i=l,idiv 

interv  =  interv  +  1 

xmin  =  xminO  +  (i-l)*deltax  -  tolx 

xmax  =  xmin  -r  deltax  +  2.0* tolx 


c 

c .  Check  which  points  are  in  the  given  region  and  assemble  new 

c  arrays  for  the  coordinates 

c 


c...  Check  limits  of  the  sub-region 
c 

ni  =  0 
do  m=l,npi 

if (xi(m) . ge. xmin. and. xi (m) . le . xmax. and. 

1  yi  (m)  .  ge.  ymin.  and.  yi  (m)  .  le  .ymax.  and. 

2  zi (m) .ge . zmin. and. zi (m) . le . zmax)  then 
ni  =  ni  +  1 

xsi (ni , interv)  =  xi(m) 
ysi (ni , interv)  =  yi (m) 
zsi (ni, interv)  =  zi{m) 
f si (ni, 1 , interv)  =  fi(m, 1) 
f si (ni, 2 , interv)  =  fi(m,2) 
f si (ni, 3 , interv)  =  fi(m, 3) 
c 

c .  Save  the  connectivity  information  for  the  point 

naux  =  conecti (m) 
if (naux.gt.7)  then 

write {*,*)' ERROR  in  point  assignment  to  a  sub-region' 
STOP  ' Error-conecti ' 
end  if 
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conecti (m)  =  naux  +  1 
c 

end  if 
end  do 

npis(interv)  =  ni 
c 

no  =  0 
do  m=l,npo 

if {xo(m) .ge.xmin.and.xo (m) . le .xmax. and. 
yo(m) . ge .ymin. and.yo (m) . le . ymax . and . 
zo(m)  .ge.  Zinin. and.  zo(m)  .le.zmax)  then 
no  =  no  +  1 
xso  (no ,  interv)  =  xo{in) 
yso  (no,  interv)  =  yo(m) 
zso  (no,  interv)  =  zo(in) 
c 

c .  Save  the  connectivity  information  for  the  point 

naux  =  conecto{m,l) 
if (naux.gt .7)  then 

write  'ERROR  in  point  assignment  to  a  sub-region' 

write ( * , * ) ’ point  naux ' , m, naux 

write  {*,*)'  xo  (m)  yo  (m)  '  ,  xo  (m)  ,  yo  (m) 

STOP  ' Error-conecto ’ 
end  if 

conecto(m,l)  =  naux  +  1 
conecto (m, 2*naux+2)  =  interv 
conecto (m, 2*naux+3 )  =  no 
c 

end  if 
end  do 

npos( interv)  =  no 
c 

end  do 
end  do 
end  do 
c 

c....  Check  if  the  original  estimation  of  the  number  of  intervals 
c  (ninterv)  has  not  been  miscalculated 

c 

i f ( interv . g t . ninterv )  then 

write  'From  subroutine  PARTIT' 

write {*,*)  'Bad  estimation  of  total  number  of  sub-regions' 
write{*,*)  'Estimated  number  (ninterv)  =', ninterv 
write{*,*)  'Needed  number  (interv)  =', interv 
STOP  'ERROR  -  ninterv  too  small' 
end  if 
c 

c....  Check  if  all  the  points  have  been  assigned  to  one  of  the  regions 
c 

auxi  =  0 
do  m=l,npi 

if (conecti (m) .eq.O)  then 
auxi  =  auxi  +  1 
end  if 


1 

2 
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end  do 


auxo  =  0 
do  m=l,npo 

if (conecto (m, 1) . eq. 0 )  then 
auxo  =  auxo  i-  1 
end  if 
end  do 
c 

i f { auxi , ne . 0 . or . auxo . ne . 0 )  then 

write ( * , * ) ' ERROR  in  the  domain  sub-division ' 
write {*,*) 'Number  of  input  points  left  over  =',  auxi 
write {*,*)' Number  of  output  points  left  over  =',  auxo 
write  (*,*)  'Niomber  of  input  points  included  =',npi  -  auxi 
write(*,  *)  'Niomber  of  output  points  included  =',npo  -  auxo 
STOP  'domain  sub-division' 
end  if 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 


c 

c 

C  ‘  SUBROUTINE  INTER 

c 

c  Performs  the  interpolation  based  on  the  MQ  or  TPS  methods 

c 

c  naux  =  1  -->  Multiquadric  Method 
c  =2  -->  1-D  Thin-Plate  Spline  Method 

c  =  3  -->  2-D  Thin-Plate  Spline  Method 

c  =4  3-D  Thin-Plate  Spline  Method 

c 

c  Created:  SEP26,95 

c  Last  Modified: 

c 

C 

subroutine  inter  { ni , no , nmax , naux , npi , npo , nni , nno , rmin , rmax , 

1  xi,yi, zi,xo,yo, zo, 

2  B , R , wkarear , wkar eai , BIG , RI , alpha , f i , 

3  fo) 


c 

c 


implicit  none 


integer 

integer 

integer 

double  precision 
double  precision 
double  precision 
double  precision 
double  precision 


ni , no ; npi , npo , nni , nno 
nmax , naux 
wkar eai (nmax) 
rmin , rmax 

xi  (ni)  ,yi  (ni)  ,  zi  (ni) 
xo (no) ,yo (no) , zo (no) 
B(ni,ni) ,BIG(no,ni) 

R (ni , naux) , RI (nmax, naux) 
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double  precision  wkar ear (nmax) , alpha (ni ) 
double  precision  fi(nni,3) 
double  precision  fo(nno,3) 


c 
c . 

c 

c 

c 

c 


c 

c . 

c 

c 

c 


c 

c . 

c 

c 

c 

c 
c . 

c 

c 

c 

c 

c 

c . 

c 

c 

c, 

c 


integer  i,j 

double  precision  d 

. .  Assembling  the  coefficient  matrix  [B] 

write (*,*) ’  Assembling  the  coefficient  matrix  [B] ' 
write ( *  ^  ) 

call  bmatrx  (naux, ni ,npi , xi ,yi , zi , ni , npi ,xi ,yi , zi, rmin, rmax, 

1  B) 

. .  Assembling  the  coefficient  matrix  [R] 

write Assembling  the  coefficient  matrix  [R] ' 
write {* , *) 

call  Rmatrx  (ni , naux, ni , npi , xi , yi , zi ; 

1  R) 

. .  Perform  first  phase  of  the  LU  decomposition  on  matrix  [B] 

write (*,*)'  First  phase  of  LU  decomposition  on  [B] ' 
write (*, *) 

call  ludcmpd  (B , npi , ni , wkareai , d, wkarear ) 

. .  Do  a  loop  over  the  modes  (not  implemented  because  the  mode  under 

consideration  is  defined  at  the  driver 
level,  which  is  not  too  efficient  for 
this  method) 

do  imode=l,mode 

. .  Compute  the  interpolated  mode  for  each  of  the  components 
of  the  given  input  mode 


x-component 


write Compute  the  interpolated  mode  for  x-component ' 
write (*, *) 

call  fitfo  (nmax,naux,no,npo,xo,yo, zo, 

1  ni,npi,xi,yi, zi,rmin,rmax, 

2  B,R,wkarear,wkareai,BIG,RI, fi (1,1) , alpha, 

3  fo(l,l)) 


c 
c , 
c 


y~component 


write (*,*)’  Compute  the  interpolated  mode  for  y- component ' 
write {*, *) 

call  fitfo  {nmax,naux,no,npo,xo,yo, zo, 

1  ni,npi,xi,yi, zi ,  rmin, rmax, 

2  B,R,wkarear,wkareai,BIG,RI, fi (1, 2) , alpha, 

3  fo(l,2)) 
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c 

c .  z- component 

c 

write (*,*)'  Compute  the  interpolated  mode  for  z-component' 
write ( * , * ) 

call  fitfo  (nmax,naux,no,npo,xo,yo, zo, 

1  ni, npi , xi ,yi , zi , rmin, rmax, 

2  B,R, wkarear , wkareai , BIG, RI , f i (1 , 3 ) , alpha, 

3  fo(l,3)) 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 


c 

c 

c  SUBROUTINE  FITFO 

c 

c  Performs  the  interpolation  based  on  the  MQ  or  TPS  methods 

c 

c  Created:  SEP26,95 

c  Last  Modified: 

c 

Q*********************************************************************** 

c 


subroutine  fitfo 

1 

2 

3 


( nmax , naux , no , npo , xo , yo , z  o , 
ni , npi , xi , yi , z i , rmin , rmax , 

B, R, wkarear , wkareai , BIG, RI , f i , alpha, 
fo) 


c 


implicit 


none 


c 


c 

C  .  .  .  - 

c 


integer 

integer 

integer 

double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 


nmax , naux 
ni , npi , no , npo 
wkareai ( nmax ) 
rmin , rmax 

xi  (ni )  , yi  (ni)  ,  zi  (ni) 
xo (no) ,yo (no) , zo (no) 
B(ni,ni) ,BIG(no,ni) 

R (ni , naux) , RI ( nmax , naux ) 
alpha (ni) , wkarear (nmax) 
fi(ni) 
fo (no) 


integer 

integer 

double  precision 
double  precision 
double  precision 


i/ j 

aux2 (16) 
err , err2 , d 
beta (4) 

auxf ( 4 ) , auxl (4,4) , aux3 (16) 


Backup  {fi}  in  wkarear 


do  i=l,npi 
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c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


wkarear{i)  =  fi(i) 
end  do 

Perform  second  phase  of  LU  decomposition  (backsubstitution) 

write {*,*)'  ...  Perform  second  phase  of  LU  decomposition  [B] ' 

write { * , * ) 

call  lubksbd  {B,npi ,ni , wkareai , f i ) 

Calculate  the  constants  \alpha  and 

constraint  constants  \beta 

beta  =  (  R^T  .  {B^{-1}.R)  )^{-l}  .  R^T  .  fi 

Backup  [R]  in  [R_I] 

do  j=l,naux 
do  i=l,npi 

RI(i,j)  =  R(i,j) 
end  do 
end  do 

.  Perform  second  phase  of  LU  decomposition  (backsubstitution) 

write {*,*)'  ...  Perform  second  phase  of  LU  decomposition  [R] ' 

write { * , ^ ) 
do  i=l,naux 

call  lubksbd  (B,npi,ni,wkareai,RI (1, i) ) 
end  do 

call  1 smp t d  ( R , ni , npi , naux , RI , nmax , naux , auxl , 4 ) 

call  Ismptd  {R,ni,npi,naux, fi,ni, l,auxf , 4) 

if (naux.eq. 1)  then 

.  For  Multiquadric  Method 

beta(l)  =  auxf(l)  /  auxl (1,1) 

do  i=l,npi 

alpha(i)  =  fi(i)  -  RI(i,l) *beta(l) 
end  do 

elseif (naux.eq. 2 . or . naux . eq . 3 . or .naux. eq . 4 )  then 
.  For  Thin-Plate  Spline  Method 

write(*,*)'  ...  Perform  first  phase  decomposition  for  [auxl]' 

write { * , * ) 

call  ludcmpd  (auxl ,naux, 4 , aux2 , d, aux3 ) 
write (*,*)'  ...  Perform  second  phase  decomposition  for  [auxl]’ 

write {* ,*) 

call  lubksbd  (auxl,naux,4,aux2,auxf) 
call  lubksbd  (auxl , 3 , 4, aux2 , auxf ) 
do  i=l,naux 
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beta ( i )  =  auxf ( i ) 
end  do 

call  Ismpd  (RI,ninax,npi,naux,beta,  4,  l,alpha,ni) 
c 

do  i=l,npi 

alpha (i)  =  fi{i)  -  alpha (i) 
end  do 
c 

end  if 
c 

c . . . .  Check  on  the  constraints 

c  (the  constraint  requires  that  R^T  .  alpha  =  0) 

c 

call  Ismptd  (R,ni , npi , naux, alpha, ni, 1 , auxf, 4 ) 
write(*,*)'  ...  Error  in  the  constraint  for  alpha' 

do  i=l,naux 

write (*,*)'  constraint i, '  =  ',auxf(i) 

end  do 
write { * , * ) 
c 

c....  Evaluate  the  coefficient  matrix  based  on  both  input  and  output 
c  grid  points 
c 

c  write  '  ...  Evaluate  [B_IG]  ' 

call  bmatrx  (naux,no,npo,xo,yo,  zo,ni,npi,xi,yi,  zi,2rmin,  rmax, 

1  BIG) 

c 

c  write (*,*)'  ...  Evaluate  [R_I] ' 

c  write 

call  Rmatrx  (nmax, naux,no,npo,xo,yo, zo, 

1  RI) 

c 

c....  Evaluate  the  product  [BIG] * {alpha}  +  [RI]*{beta}  =  (Hi) 
c 

c  write(*,*)'  ...  Evaluate  {Hi}' 

c  write ( * , * ) 

call  Ismpd  (BIG, no, npo, npi, alpha, ni, 1, fo,no) 

call  Ismpd  ( RI, nmax, npo, naux, beta, naux, l,wkarear, nmax) 

do  i=l,npo 

fo(i)  =  fo{i)  +  wkarear(i) 
end  do 
c 

c . . . .  END  OF  SUBROUTINE 
C 

return 

end 

c 

c 

c  SUBROUTINE  BMATRX 

c 

c  Generates  the  coefficient  matrix  based  on  the  basis  functions  and 
c  a  user-defined  varing  parameter  "r" 

c 
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c  Created:  SEP04,95 

c  Last  Modified: 

c 


c 


c 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


subroutine  bmat rx  ( naux , no . npo , xo , yo , 20 , ni , npi , xi , yi , z i , rmin , rmax , 

1  B) 


implicit  none 


integer 

double  precision 
double  precision 
double  precision 
double  precision 


naux , ni , no , npi f  npo 
rmin , rmax 

xo  (no)  ,yo  (no)  ,  zo  (no) 
xi  (ni)  ,yi  (ni)  ,  zi  (ni) 
B  (no,  ni) 


integer  i , j 

double  precision  npil , exp, r2 , raux 

double  precision  xxi,xxj ,yyi,yyj , zzi, zzj 

double  precision  eps 
parameter  {eps=l . Od-14) 


.  . . .  Check  if  MQ  or  TPS  has  been  selected 


Multiquadrics  Basis  Functions 


if (naux.eq. 1)  then 

.  . . .  Constant  calculation  for  the  varying  "r"  parameter 

npil  =  dfloat(npi)  -  1.0 
raux  =  ( rmax/ rmin) * (rmax /rmin) 

.  . . .  Evaluate  the  matrix  of  coefficients  [B] 

do  j=l,npi 
XX j  =  xi(j) 

yyj  =  yi(j) 

zzj  =  zi(j) 

exp  =  (  dfloat(j)  -  1.0  )  /  npil 
r2  =  (rmin^rmin) * (  (raux)**exp  ) 
do  i=l,npo 
xxi  =  xo(i) 
yyi  =  yo(i) 
zzi  =  2o(i) 

B(i,j)  =  dsqrt(  (xxi  -  xxj ) * (xxi  -  xx j )  + 

1  (yyi  -  yyj  )  *  (yyi  -  yyj  )  + 

2  (zzi  -  zzj)*{zzi  -  zzj)  +  r2  ) 

end  do 

end  do 

return 
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end  if 


Q - 

c  End  of  MQ 

Q - 

c 

c - 

c  Thin-Plate  Spline  Basis  Functions 

^ - 

c 

c....  1-D  Problems 
c 

if (naux. eq. 2 )  then 
c 

c....  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
XX j  =  xi( j ) 
zzj  =  zi{j) 
do  i=l,npo 
xxi  =  xo ( i ) 
zzi  =  zo{i) 

r2  =  (xxi  -  xxj ) *  (xxi  -  xxj  )  + 

1  (zzi  -  zzj)*(zzi  -  zzj) 

if (r2 . It . eps )  then 
B (i, j )  =  0.0 
else 

B(i,j)  =  r2  *  DLOG(r2)  /  2.0 
end  if 
end  do 
end  do 
c 

return 
end  if 
c 

c.  .  . .  2-D  Problems 
c 

if (naux . eq. 3 )  then 
c 

c....  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
xxj  =  xi ( j ) 

yyj  =  yivj) 
do  i=l,npo 
xxi  =  xo ( i ) 
yyi  =  yo(i) 

r2  =  (xxi  -  xxj )* (xxi  -  xxj)  + 

1  (yyi  -  yyj ) * {yyi  -  yyj ) 

if (r2 . It . eps )  then 
B(i,j)  =  0.0 
else 

B(i,j)  =  r2  *  DLOG(r2)  /  2.0 
end  if 
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end  do 
end  do 
c 

return 
end  if 
c 

c.  .  .  .  3--D  Problems 
c 

if (naux. eq. 4)  then 
c 

c..,.  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
XX j  =  xi ( j ) 

yyj  =  yi(j) 

zzj  =  zi(j) 
do  i=l,npo 


xxi  = 

xo(i) 

yyi  = 

yo(i) 

zzi  = 

zo  (i) 

r2  = 

(xxi  - 

XX j ) * (xxi 

-  XX j )  + 

1 

(yyi  - 

yyj )  *  (yyi 

-  yyj)  + 

2 

(zzi  - 

zzj ) * (zzi 

-  zzj ) 

if (r2 . It . eps)  then 


B(i, j)  =0.0 
else 

B{i,j)  =  r2  *  DLOG(r2)  /  2.0 
end  if 
end  do 
end  do 
c 

return 
end  if 

- - 

c  End  of  TPS 

- - 

c 

if (naux . ne . 1 . and . naux . ne . 2 . and . naux . ne . 3 . and . naux . ne . 4 )  then 
write {*,*) 'naux  not  properly  defined  in  subroutine  "bmatrx" ' 
write { * , * ) ' naux  = ' , naux 

STOP  'naux  not  equal  to  1,  2,  3  or  4  in  bmatrx' 
end  if 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

c 

c  SUBROUTINE  RMATRX 

c 

c  Generates  the  constraint  matrix  based  on  the  basis  functions 
c 
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c  Created:  SEP26,95 

c  Last  Modified: 

c 

c 

subroutine  Rmatrx  (no,naux,ni,npi,xi,yi, zi, 

1  R) 

c 

implicit  none 

c 

integer  ni , no, npi , naux 

double  precision  xi (ni) ,yi (ni) , zi (ni) 
double  precision  R(no,naux) 
c 

integer  i 

c 

c. . . -  Evaluate  the  matrix  of  constraints  [R] 
c 

do  i=l,npi 
R(i,l)  =  1.0 
end  do 
c 

i f ( naux . eq . 2 )  then 
do  i=l,npi 

R(i, 2 )  ~  xi (i) 
end  do 
end  if 
c 

i f ( naux . eq . 3 )  then 
do  i=l,npi 

R(i,2)  =  xi (i) 

R  ( i , 3 )  =  yi  ( i ) 
end  do 
end  if 
c 

if (naux. eq. 4)  then 
do  i=l,npi 

R{i, 2 )  =  xi (i) 

R  ( i , 3 )  =  yi  ( i ) 

R(i,4)  =  zi(i) 
end  do 
end  if 
c 

c . . . .  END  OF  SUBROUTINE 

return 

end 

c 

C 

c  SUBROUTINE  FOTSXA 

c 

c  Transfer  output  data  from  the  simple  array  used  in  MQ  calculations 
c  to  the  grid  format  of  the  driver  (sxs , sys, szs) 
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c 

c  Created:  SEP04,95 

c  Last  Modified: 

c 

QVrilr***********^************************************-*-******************** 

C 

subroutine  fotsxa  {npo, fo, ia, ja, ka^mode, sea) 
c 

implicit  none 

integer  ia, ja, ka,mode 

integer  npo 

real  fo(npo) 

real  sea ( ia, ja, ka,mode) 

c 

integer  i,j,k,m 

c 

m=l 

do  k=l,ka 
do  j=l,ja 
do  i=l,ia 

sea (i, j , k,mode) =fo  (m) 
in=m+l 
enddo 
enddo 
enddo 
c 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

Q************ ******************** *************************************** 

c 

c  SUBROUTINE  MIMAX 

c 

c  Finds  the  minimum  and  the  maximum  among  the  elements  of  a  vector 

c 

c  Created:  OCT24,95 

c  Last  Modified: 

c 

c 

subroutine  mimax  (npi , xsi , ysi , zsi , ni , 

1  xmin,xmax,ymin,ymax,  zmin,  zmax) 

c 

implicit  none 

integer  ni,npi 

double  precision  xsi (ni) ,ysi (ni) , zsi (ni) 
double  precision  xmin, xmax, ymin,ymax, zmin, zmax 

integer  i 

double  precision  auxx, auxy, auxz 
c 
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c 

c 

c 

c 


c 

c .  . 
c 


Find  the  min.  and  max.  coordinate  values  along  each  direction 
considering  all  the  point  involved  in  the  sub-region  (both  input 
as  well  as  output  points) 


do  i=l,npi 

auxx  =  xsi(i) 
auxy  =  ysi (i) 
auxz  =  zsi(i) 
i f ( auxx . gt . xmax) 
if (auxx . It .xmin) 
if (auxy .gt .ymax) 
if (auxy . It -ymin) 
if (auxz . gt . zmax) 
if (auxz . It . zmin) 
end  do 


xmax 

=: 

auxx 

xmin 

auxx 

ymax 

= 

auxy 

ymin 

auxy 

zmax 

auxz 

zmin 

= 

auxz 

END  OF  SUBROUTINE 


return 

end 


c 

Q - 

c  This  subroutine  performs  Lower  -  Upper  (LU)  decomposition 
c 

c  Obtained  From: 

c  "Numerical  Recipes",  By  Press  &  Flannery  et  al., 
c  Cambridge  University  Press,  1989,  p.  35-36 

c  a  =  matrix  logical  dimensions  m  by  n 
c  physical  dimensions  mp  by  np 

c  XX  -  row  permutation  effected  by  partial  pivoting 
c  w  -  internal 


SUBROUTINE  LUDCMPd ( A , N , NP , INDX , D , W) 
implicit  double  precision  {a-h,o-z) 

PARAMETER  (NMAX=100 , TINY=1 . OE-20 ) 
c  DIMENSION  A(NP,NP)  ,  INDX(N)  ,  W(NMAX) 

DIMENSION  A(NP,NP)  ,INDX{N)  ,W(NP) 

D=l. 

DO  12  1=1, N 
AAMAX=0 . 

DO  11  J=1,N 

IF  (dABS(A(I,  J)  )  .GT.AAMAX)  AAMAX=dABS  ( A  ( I ,  J)  ) 

11  CONTINUE 

IF  (AAMAX.EQ.O. )  PAUSE  ' Singular  matrix . ' 
W(I)=1./AAMAX 

12  CONTINUE 

DO  19  J=1,N 
DO  14  1=1, J-1 
SUM=A(I, J) 

DO  13  K=1,I-1 

SUM=SUM-A ( I , K) *A ( K, J) 

13  CONTINUE 
A{I, J)=SUM 

14  CONTINUE 
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AAMAX=0. 

DO  16  I=J,N 
SUM=A(I, J) 

DO  15  K=1,J-1 

SUM=SUM-A{I,K) *A(K, J) 

15  CONTINUE 
A(I, J) =SUM 
DUM=W ( I )  *dABS  ( SUM) 

IF  {DUM.GE.AAMAX)  THEN 
IMAX=I 
AAMAX=DUM 
ENDIF 

16  CONTINUE 

IF  (J.NE.IMAX)THEN 
DO  17  K=1,N 
DUM=A{IMAX,K) 

A(IMAX,K) =A{J,K) 

A( J,K) =DUM 

17  CONTINUE 
D=-D 

W(IMAX)  =W(J) 

ENDIF 

INDX(J)=IMAX 

IF(A(J, J) -EQ.O. )A(J, J)=TINY 

IF{J.NE.N)THEN 
DUM=1 . /A(J, J) 

DO  18  I=J+1,N 

A(I, J) =A(I, J) *DUM 


18 

CONTINUE 

ENDIF 

19 

CONTINUE 

RETURN 

END 

c 

c - 

c  This  subroutine  performs  Lower  -  Upper  (LU)  backsubstitution 
c 

c  Obtained  From: 

c  "Numerical  Recipes",  By  Press  &  Flannery  et  al . , 
c  Cambridge  University  Press,  1989,  p.  37 

c  a  =  matrix  logical  dimensions  m  by  n 
c  physical  dimensions  mp  by  np 

c  XX  -  row  permutation  effected  by  partial  pivoting 
c  b  -  on  input  contains  contain  RHS  of  A  x  =  b 
c  on  output  contains  the  solution  x 

- - 

SUBROUTINE  LUBKSBd ( A , N , NP , INDX , B ) 
implicit  double  precision  (a-h,o-z) 

DIMENSION  A(NP,NP) ,INDX(N) ,B{N) 

11=0 

DO  12  1=1, N 
LL=INDX{I) 

SUM=B(LL) 

B(LL)=B{I) 
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IF  (II.NE.O)THEN 
DO  11  J=II,I-1 

SUM=SUM~A{I, J) *B(J) 

11  CONTINUE 

ELSE  IF  (SUM.NE.O.)  THEN 
II  =  I 
ENDIF 
B(I)=SUM 

12  CONTINUE 

DO  14  I=N,1,-1 
SUM=B ( I ) 

DO  13  J=I+1,N 

SUM=SUM-A(I,  J)  *B{J) 

13  CONTINUE 
B(I)=SUM/A(I,I) 

14  CONTINUE 
RETURN 
END 


★*********★**'**********• 

C^ 

C*  MULTIPLICATION  OF  TWO  MATRICES 

C* 

C*  Last  Update:  Nov  04,  92 

C* 

C*  OBJECTIVE': 

C*  Multiplication  of  A.B  =  C 
C’^ 

C*  INPUT  : 

C*  A  ■  :  matrix  n  vs .  m 

C*  B  :  matrix  m  vs .  1 

C* 

C*  OUTPUT  : 

C*  C  :  matrix  n  vs .  1,  result  of  A.B 

C* 

Q*  ****★*★■*■**★**★**★★**■*■*■*• 


C 

c 


c 


subroutine  Ismpd  (a,na,n,m,b,nb, 1, c,nc) 


implicit 

integer 

double  precision 
double  precision 


none 

n,m, 1 ,na,nb,nc 
a  (na, m)  ,  b  (nb,  1 ) 
c  (nc,  1) 


integer  i ,  j  ,  k 

double  precision  aux 


do  200  i  =  l,n 
do  200  j  =  1,1 
aux  =  0 . OdO 
do  100  k  =  l,m 

aux  =  aux  +  a{i,k)  *  b{k,j) 
100  continue 

c (i, j  )  = 


aux 


200 


continue 


c 

return 

end 

C 

Q*  ***★****★★★****************★★**★*** 

c*  * 

C*  MULTIPLICATION  OF  TWO  MATRICES  * 

C*  [A]  in  band  storage  mode  * 

C*  * 

C*  * 

C*  Last  Update:  Dec  16,  92  * 

Qit  ★★****************iJr**************** 

C*  * 

C*  OBJECTIVE  :  * 

C*  Multiplication  of  A.B  =  C  * 

C*  * 

C*  INPUT  :  * 

C*  A  :  matrix  n  vs .  n  (BAND  STORAGE  MODE)  * 

C*  B  :  matrix  n  vs .  1  * 

C*  * 

C*  OUTPUT  :  * 

C*  C  :  matrix  n  vs .  1,  result  of  A.B  * 

C*  ^ 

Qic  *****************★*★★*■*★*****★★★*** 

C 

subroutine  Ismpbd  (a, n, band, b, 1 , c ) 
c 

implicit  none 

c 

integer  n, band, 1 

double  precision  a (n, band),  b(n,l) 
double  precision  c(n,l) 
c 

integer  i ,  j  ,  3c 

double  precision  aux,baux 
c 

do  100  j=l,l 
do  100  i=l,n 

c(i,j)  =  O.OdO 
100  continue 
c 

do  300  k=l,l 
do  300  i=l,n 
aux  =  0 . OdO 

do  200  j=l,band 
aux  =  aux  +  b (i+ j -1 , k) *a (i , j ) 

200  continue 

c ( i , k )  =  aux 
300  continue 
c 

do  400  k=l,l 

do  400  i=l,n-band+l 
baux  =  b{i,k) 
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400 


do  400  j=2,band 

c{i-l+j,k)  =  c(i-l+j,k)  +  baux*a(i,j) 
continue 
c 

do  500  k=l,l 
do  500  i=n-band+2,n-l 
baux  =  b(i,k) 
do  500  j=2,n“i+l 

c(i-l+j,k)  =  c(i-l+j,k)  +  baux*a(i,j) 
500  continue 
c 

return 

end 


c 

Q*  ************************************* 

C* 

C*  MULTIPLICATION  OF  TWO  MATRICES  * 

C*  * 

C*  Last  Update:  Mar  09,  93  ^ 

Q*  ★★********★*★*★**★*'*••*■****★*•**★★•*■*★★ 

C’^  * 

C*  OBJECTIVE  :  * 

C*  Multiplication  of  A'^T.B  =  C  * 

C*  * 

C*  INPUT  :  * 

C*  A  :  matrix  n  vs .  m  * 

C*  B  :  matrix  n  vs .  1  * 

C*  * 

C*  OUTPUT  :  * 

C*  C  :  matrix  m  vs .  1,  result  of  A.B  * 

C*  * 

********■*■**★*■***•*★•**•*••***★********** 

C 

subroutine  Israptd  {a, na, n,m, b, nb, l,c,nc) 


c 


c 


implicit 

integer 

double  precision 
double  precision 


none 

n,m,  l,na,nb,nc 
a(na,m) ,b{nb, 1) 
c  (nc,  1) 


integer  i , j , k 

double  precision  aux 


c 

do  200  i  =  l,m 
do  200  j  =  1,1 
aux  =  0 . OdO 
do  100  k  =  l,n 

aux  =  aux  +  a(k,i)  *  b(k,j) 
100  continue 

c { i , j )  =  aux 
200  continue 


return 

end 
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subroutine  nurbs (mode, f ) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


implicit  double  precision  {a--h,o-z) 
include  ' csdcf d . par ’ 

parameter (ndom=2 , ndim=6 , ndep=6 , nwork=NWK) 
parameter (maxc= (ndim+1) *imxs* jmxs) 


xs ,ys, zs 
sxs, sys , szs 
xa , ya , za 
sxa, sya, sza 
isg, jsg,ksg 
is, js, ks 
ia, ja, ka 


structural  grid  points 

structural  mode  shapes  values  at  grid  points 
aerodynamic  grid  points 
calculated  aerodynamic  deflections 
number  of  structural  points 

number  of  structural  points  {  for  each  mode) 
number  of  aerodynamic  points 


common  /struct/  sxs (imxs, jmxs, kmxs) 

&,sys(imxs,  jmxs,kinxs)  ,  szs  (imxs,  jmxs, kmxs)  ,  is 
& , j  s , ks , i sg , j  sg , ksg 

common  /aero/  xa (dnaro) ,ya (dnaro) , za (dnaro) , fa (dnaro) ,npts 
common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , ft (dnstr+3 ) , nspts 
common  /cnt/  ia,ja,ka 

common  /para/  npt_s,npt_t, sdir (imxs* jmxs) , tdir (jmxs) 
c 

c  Local  Variables 

c  uo  -  array  for  aerodynamic  grid  points  and  mode  shapes 

c  u  -  array  for  structural  grid  points  and  mode  shapes 

c  f  ~  array  for  structural  grid  points  to  be  parameterized 

c  st  -  parameterized  values  for  the  structural  grid 

c  sttest  -  parameterized  value  of  the  aerodynamic  grid 

c  work  “  scratch  array  for  dtnurbs  subroutines 

c  NWK  -  dimension  of  scratch  array 

c  V  -  value  of  spline  at  wanted  location 

c  outl,2,3  -  holding  arrays  for  spline  output  values 

c  ipdir  ~  holding  array  for  the  plane  direction 

c 
c 


double  precision  uo(imxa  ,jmxa  ,ndim) ,  v(10) 
double  precision  work{NWK),  u ( imxs , jmxs , ndim) , snpvl { 2 ) , 
&pt ( 3 ) , p ( 2 ) , s_carray (maxc ) 
dimension  f (dnaro, 3) 
c  for  fitsurf 

dimension  c_tmp ( (ndim+1) * jmxs* imxs) 
integer  npts_curv ( jmxs ) 
c 

integer  ipdir (dnaro) 

dimension  xd(4) ,yd(4) ,zd(4) ,fd{4) ,tmp(dnstr) ,tmp2{dnstr) 


- - 

c  Logicals 

- - 

c 

c  npi  -  number  of  point  in  CSD  grid 

c  ndim  -  number  of  dependant  variables 
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c  ndeg  -  degree  of  spline 
c 

ipar=2 

c  write (*,*)  '  Enter  the  spline  degree  ’ 

c  read ( * , * )  ndeg 

c  write (*,*)'  Enter  the  spline  degree  in  the  s  direction' 

c  read ( * , * ) ndeg ( 1 ) 

c  write(*,*)'  Enter  the  spline  degree  in  the  t  direction' 

c  read ( * , * ) ndeg ( 2 ) 

c  ndeg (1) =3 

c  ndeg (2) =3 

ndeg=3 
c 

c  Rearrange  structural  grid  and  mode  information 
c 

m=0 

do  k=l , ksg 
do  j=l,jsg 
do  i=l,isg 
m=m+l 

u(i,  j,l)=xt(m) 
u(i,  j  ,  2)  =yt  (m) 
u{i, j , 3)=zt  (m) 
u(i,  j , 4) =sxs (i, j ,k) 
u(i, j,5)=sys(i, j,k) 
c  u(i,j,4)-0.0 

c  u(i,j,5)=0.0 

u(i, j,6)=szs(i, j,k) 
enddo 
enddo 
enddo 
c 

c  Rearrange  aerodynamic  grid  information 
c 

m=0 

do  k=l,ka 
do  j=l,ja 
do  i=l,ia 
m=m+l 

uo  ( i ,  j  ,  1 )  =xa  (m) 
uo  (i,  j  ,  2)  =ya  (m) 
uo  (i,  j  ,  3 )  =za  (m) 
enddo 
enddo 
enddo 
c 

c  Use  surface  fitting  routine  for  non-regular  CSD  grid 

c 

c 

c...this  program  will  fit  a  NURB  surface  to  offset  points, 
c 

c  Version:  6.0  Using  DT_NURBS  for  fitting 
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c  Date:  2/1991 

c  Programmer:  Bob  Ames,  DTRC 

c  Modified  for  use  in  FASIT  8/95  &  9/95  by  MJ  Smith 
c 

c  Process . , . 

c  Offset  data  is  read  in  for  each  curve.  Each  curve  may  have  any  number 
c 

C  MEMORY: 

c  This  program  can  COMSUME  memory  if  you're  not  careful  I  See  fitsurf.inc 
c 


^  ★ 

c  Start  loop  for  each  curve 

Q  ★  *  * 

do  j=l,jsg 

c  Get  number  of  points ...  check  limits 

npts„curv( j ) =isg 
c 

if  (npts_curv{ j )  .gt.  imxs)  then 

write (6,*)  ’  Error  max  mumber  of  points  per  ' 

write (6,*)  ’  curve  exceeded!  Terminating..!' 

stop 
end  if 

c  Find  curve  with  maximum  number  of  points 
if{j  .eq.  1)  then 

maxpts=  npts_curv{j) 
else 

maxp  t  s  =max  0 { np  t  s_curv { j ) ,  maxp t  s ) 
end  if 
c 

do  k=l ,  npts_curv{  j  ) 
c  Check  for  coincident  points 

if  (k  .gt.  1)  then 

c  Assume  points  coincident  unless  proven  wrong 
icoin=0 
do  i=l,ndep 

if  (u{k, j,i) .eq.u(k-l, j,i) )  then 
icoin=icoin+l 

else 

continue 
end  if 
end  do 

if  (icoin.eq.ndep)  then 

write (6,*)  'Error...  input  file' 
write (6,*)  'contains  coincident  points' 
write (6,*)  '  " 

c  write { 6 , fmt= ' ( ' Curves ' , i3 , '  Point= ' , i3 ) ’ ) 

c  ^  j,k 
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stop 
end  if 


end  if 

end  do  lend  npts 

end  do  'end  ncurv 

c 

c  Fit  surface  to  input  data 

c 

call  surface ( jsg, npts_curv, ndeg,maxpts,u, s_carray) 
do  i=l,100 

wr i te ( 6 , * )  "  s_car ray  ’ , i , s_car r ay ( i ) 

enddo 


c 

c  end  of  original  fitsurf  program 

c 

c  Manipulate  the  Unknown  Function  Grid  to  Detennine 

c  the  Parameterization 

Q********************-*-***********-*********************************** 


c 

c 

c 

c 


c 

c 

c 

c 

c 


m=0 

do  i=l,ia-l 
do  j=l,ja-l 
m=m+l 
jpl=i*ia+j 
xd(l )  =xa  (m) 
yd(l )  =ya  (m) 
zd(l)  =za  (m) 
xd(2 ) =xa (m+1) 
yd(2 ) =ya (m+l) 
zd(2) =za (m+l) 
xd(3 ) =xa ( jpl) 
yd(3)=ya{ jpl) 
zd(3)=za{ jpl) 
xd(4)=xa(jpl+l) 
yd{4) =ya ( jpl+1) 
zd(4) =za (jpl+1) 

call  planel (xd,yd, zd, 4, ipdir (m) , iplane) 
write (6,*)  '  plane',  m, ipdir (m) , iplane 

enddo 
enddo 

do  m=l,npts 

Now  search  for  the  known  panel  which  encloses 

the  point,  based  on  the  direction  of  the  data  panel 

call  search (ipdir (m) , lout ,mout , iout, jout , 

1  xa (m) ,ya (m) , za (m) , xd,yd, zd) 

write (6,*)  '  search  ’ ,m, lout, mout, iout , j out 

Now  call  the  bivariate  interpolation  or  extrapolation 
routines 

interpolation 


354 


c 

c 


c 


incx=l 

i f ( lout . gt . 0 )  then 
f d { 1 ) =sdir (mout ) 
fd{2 ) =sdir (mout+1) 
fd ( 4 ) =sdir (mout+isg) 
fd{3 )  =sdir  (mout-i-isg-?-!) 
xx=xa  (m) 
yy=ya  (m) 
do  11=1,4 

write{6,^)  '  1  fd  • ,xd{ll) ,yd{ll) , fd{ll) 
enddo 

call  bivarin(xd,yd, fd,xx,yy, z, ierr) 

write (6,*)  ‘  xx  ',xx,yy,z 

snpvl (1) =z 

f d ( 1 ) =tdir ( j  out ) 

f d ( 2 ) =tdir { j  out ) 

f d ( 4 ) =tdir ( j  out+1 ) 

f d ( 3 ) =tdir ( j  out+1 ) 

xx=xa  (m) 

yy=ya{m) 

call  bivarin (xd,yd, fd,xx,yy, z, ierr) 
snpvl (2 ) =z 

write (6,*)  '  calling  dtnpvl  snpvl (1) , snpvl (2) 

call  dtnpvl (snpvl, incx, s_car ray, work, NWK, v, ier) 
do  i=l,4 

write (6,*)  ’  int  ' ,xd(i) ,yd(i) , fd{i) 

enddo 
do  i=l,6 

write (6,*)  '  dtnpvl  ’,i,v(i) 

enddo 

f  (m,  1)  =v{4) 
f  (m,2)=v(5) 
f  {m,3)=v(6) 

else  if  (lout.eq.-l)  then 

extrapolate  along  x  direction 
do  1=1,3 
1=3 

mout= ( ( jout-1) *isg) +iout 

inpl=  ( jout*isg)  +iout 

do  11=1, isg 

tmp (11) =szs (11, jout, 1) 

tmp2 (11) =xt ( ( jout~l) *isg+ll) 

writedOl,*)  ’  a  Ml,  tmp(ll)  ,  tinp2  (11) 

enddo 

xx=xa  (m) 

call  polint  ( tmp2  ,  tmp,  isg,xx,  fd  (1)  ,  err) 
if(l.eq.3)  then 

writedOl,*)  'polint  '  ,m,  xa(m),fdd) 
write (101,*)  (xt(ll), ll=nout , nout+isg) , 

1  (tmp(i) , i=l, isg) 

endif 

do  11=1, isg 

tmp (11) =szs (11, j out+1, 1) 
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tinp2  (11)  =xt  ( jout*isg+ll) 
writedOl,*)  '  b  '  ,  11,  tmp (11)  ,  tmp2  (11) 
enddo 
xx=xa  (m) 

call  polint ( tmp2 , tmp, isg,xx, fd(4) ,err) 

xd{l)=xa(ni) 

xd  (2  )  =xt  (mout) 

xd(3)  =xt  (mpl) 

xd  { 4 )  =xa  (iti) 

yd(l)  =yt  (mout) 

yd  (2  )  =yt  (mout) 

yd(3)=yt  (mpl) 

yd{4)=yt  (mpl) 

f d ( 2 ) =u ( iout , j  out , 1+3 ) 

fd (3 ) =u (iout , jout+1 , 1+3 ) 

xx=xa (m) 

yy=ya(m) 

call  bivarin (xd,yd, fd,xx,yy, z, ierr) 
f  (m, 1) =z 

c  enddo 

else  if  (lout.eq,-2)  then 
c  extrapolate  along  y  direction 

c  do  1=1,3 

1=3 

mout= ( ( jout-1) *isg) +iout 

do  11=1, jsg 

tmp (11 ) =szs (iout, 11,1) 

tmp2 (11) =yt ( (11-1 ) *isg+iout) 

enddo 

yy=ya{m) 

call  polint {tmp2 , tmp, jsg,yy, fd(l) ,err) 
i f { 1 . eq . 3 )  then 

c  write (6,*)  'polint  ' ,m,  xa(m),fd(l) 

c  write (6, *)  (xt (11) , ll=nout , nout+isg) , 

c  1  ( tmp ( i ) , i=l , isg) 

endif 
c 

do  11=1, jsg 

tmp (11) =szs (iout+1 ,11,1) 

tmp2 (11) =yt ( (11-1) *isg+iout+l) 

enddo 

yy=ya(m) 

call  polint (tmp2 , tmp, jsg,yy, fd(4) , err) 

mout= ( ( jout-1 ) *isg+iout) 

xd(l) =xt (mout) 

xd (2 ) =xt (mout) 

xd ( 3 ) =xt (mout+1 ) 

xd ( 4 ) =xt (mout+1 ) 

yd(l)=ya(m) 

yd (2 ) =yt (mout) 

yd ( 3 ) =yt (mout+1 ) 

yd{4)=ya(m) 

fd (2 ) =u ( iout, jout , 1+3 ) 
fd (3 ) =u ( iout+1 , j  out, 1+3 ) 
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xx=xa  (m) 
yy=ya  (m) 

call  bivarin (xd,yd, fd,xx,yy, z, ierr) 
f  {in,l)=2 

c  enddo 

else  if  (lout.eq.-3)  then 
c  extrapolate  in  a  corner 

c  do  1=1,3 

1=3 

mout= { (j out-1) *isg) +iout 

mpl= ( jout*isg) +iout 

do  11=1, isg 

tmp (11) =szs (11, jout, 1) 

tinp2  (11)  =xt  (  (j  out-1)  *isg+ll) 

enddo 

xx=xa  (m) 

call  polint  ( tinp2  ,  tmp,  isg, xx,  fd  (1)  ,  err) 
if(l.eq.3)  then 

c  write (6,*)  'polint  ' xa(m),fd(l) 

c  write(6,*)  (xt (11) , ll=nout ,nout+isg) , 

c  1  ( tmp (i) , i=l, isg) 

endif 
c 

do  11=1, jsg 

tmp (11) =szs (iout, 11,1) 

tmp2 (11) =yt ( (11-1) *isg+iout ) 

enddo 

yy=ya  (m) 

call  polint (tmp2, tmp, jsg,yy, fd (4) ,err) 
f  (m,  1 )  =  ( ( fd(l) -szs (iout, jout, 1) )  + 

1  ( fd(4) -szs (iout, jout, 1) ) ) +szs (iout , jout , 1) 

write(102,*)  '  fd  ',m,l,f(m,l) 

c  end  do  m=l,npts 

endif 
enddo 
c 

do  i=l,dnaro 
writedOS,*)  i,f(i,3) 
enddo 
return 
end 


subroutine  surface  {ncurv,npts_curv,ndeg,maxpts,xyz,  s_c array) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cc 

c 

c  Date:  7/1990 

c  Programmer:  Bob  Ames,  DTRC 
c 
c 

Q  - 

c  Variable  definitions 

c  - 
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c 

c  carray 
c  c_tmp 
c  hold 
c  maxpts 
c  ndeg 
c  ndep 
c  ndom 
c  npt_gpar 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  Include  parameters 

implicit  double  precision  (a-h,o-2) 
include  ' csdcfd.par ’ 

parameter (ndom=2 , ndim=6 , ndep =6 , nwork=NWK) 
c  DTGPAR  variables 

common  /para/  npts , nptt , sdir (imxs* jmxs) , tdir ( jmxs) 
parameter {maxc= (ndim+1) *imxs* jmxs) 
dimension  xyz (imxs , jmxs, ndim) 

dimension  temp ( imxs *ndep) , c_tmp (maxc) , s_carray (maxc) 
dimension  t_gpar (imxs* ndom* ndep) , s_gpar ( jmxs*ndom*ndep) 
dimension  c_c array (maxc) ,hold(NWK) ,work(NWK) 
integer  npt_gpar (ndom) , ipntr_s ( jmxs* ndep* 2 ) , len_c 
integer  npt s_curv ( jmxs ) , icc 

logical  diag 

Q  ★  ★  ★ 

c  Set  initial  values 
^  ★ 

c  other  logicals 

diag=  .false. 
diag=  .true. 

c  Generate  parametric  array  of  initial  input  data  in  preparation  for 
c  curve  fitting 

0  **★★*★★******★★***★*******★**★*******★**■*■*★*★****★******★****■*■**■*★*★★★ 

0  *  *  * 

c  Load  temp  array  with  input  data  from  data  base 
0  *  *  * 

ipntr_s (1) =1 
ndep_gpar=3 
npts=0 
nptt=ncurv 
do  j=l,ncurv 
index=l 

do  m=l,ndep_gpar 

do  k=l , npts_curv ( j ) 

temp (index) =xyz (k, j ,m) 
index= index+ 1 
end  do 


-  array  holding  nurb  data 

-  temp  holding  array  of  individual  curves 
“  scratch  space  for  DT_NURBS 

-  maximum  number  of  points  for  any  input  curve (i) 

-  degree  of  curve  or  surface  (order=ndeg+l ) 

-  niomber  of  dependant  variables  allowed  (x,y,  z,  cp,  vx,  vy,  vz  .  .  .  ) 

-  number  of  independant  variables  (s,t...) 

“  nximber  of  data  points  for  each  ndom 
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end  do 


c  Diagnostics  on  temp  array.. (i.e.  input  data) 
if  (diag  .eq.  .true,)  then 
write (6,*)  '  ” 

write (6,*)  '==========  NEW  CURVE  ==========  « 

write  (6,*)  'Data  for  curve  nuitiber=  '  ,  j 
write (6,*)  '  k  m  indx  input  data' 

index=l 

do  m=l , ndep_gpar 

do  k=l , npts^curv ( j ) 

write (6, fmt= ' (lx, 3i4, f 12 . 6) ' )  k,m, index. 
Sc  temp  (index) 

index=index+l 
end  do 
end  do 
end  if 

c  End  Diagnostics 


^  *  *  * 

c  Set  up  dtgpar  arguments 

Q  *  ★  * 


C 

c 


npt__gpar  ( 1 )  =  npts_curv  ( j  ) 
ndom_gpar  =  1 
ndep_gpar  =  1 
ndim_gpar  =  npts_curv(j) 


! Number  of  data  points  in  s  direction 
INximber  of  indep  variables  (i.e.  s,t) 
INumber  of  depend  variables  (i.e.  x,y,z) 
!Max  parameter  dimension 


call  dtgpar  (npt_gpar, temp, ndom_gpar, ndep_gpar, work, nwork. 
Sc  ndim_gpar ,  t_gpar ,  ier ) 

do  1=1 ,npt_gpar ( 1) 
ll=npts+l 

sdir (11) =t_gpar (1) 
enddo 

npts=npt_gpar ( 1 ) +npts 
if  (ier  .ne.  0)  then 

write (6,*)  '  DTGPAR  returned  IER= ' , ier 

stop 
end  if 


c  Diagnostics 

if  (diag  .eq.  .true.)  then 
write  (6,’^)  '  ' 

write (6,*)  •***  DIAG.  ON  T_GPAR  ***' 

c  write ( 6, fmt= ' (lx, ’ (1)  Curve  number= ’ , i3 ) ’ )  j 

do  loop2=l , ndim_gpar 

write{6, fmt=' (lx, i6 , 2f 12 . 6 ) ' ) 

Sc  loop2  ,  t_gpar  ( loop2  ) 

end  do 
end  if 

c  End  Diagnos 

c  Fit  input  curve  pts  using  DTNSI 


359 


do  ii=l,ndep 

if  (ii.  eq.  1)  then 
icc=-l 
else 

icc=2 
end  if 

c  Load  input  array  of  dependant  variables 
do  kk=l,npts_curv( j ) 

temp (kk) =xyz (kk, j , ii ) 
writelS,"^)  ’  dtnsi  ’  ,  kk,  ii ,  temp  (kk) 
end  do 
k=ndeg+l 

ncoef= (npts_curv{ j ) -2 ) +k 
nc=5+  (ndep+l )  *ncoef -i-k 
call  dtnsi (npts_curv(j ) , 

&  t_gpar , 

Sc  temp,ndeg,  icc, hold,nwork,maxc , 

&  c_carray , nc , ier ) 

end  do 
do  11=1,100 

write  (6, '  c_array  ’  ,  11,  c_carray (11) 
enddo 

c  Diagnostics 

if  (diag  .eq.  .true.)  then 
call  fit_diag(c_carray, j ) 
end  if 

c  Error  Check 

if  (ier  .It.  0)  then 

write (6,*)  '  DTNSI  returned  IER= ' , ier 

stop 
end  if 


c  Generate  points  at  constant  parametric  locations  using  max  number  of 
c  points  contained  in  any  one  input  curve . . , load  back  into  data  base 

call  dtsepp (c_c array, maxpts , work, nwork, temp, ier) 


0  ★  *  * 

c  Reload  surf  data  base  with  new  refitted  data 
^  * 

npts_curv ( j ) =maxpts 


incr=l 

do  ii=l,ndep 

do  kk=l,  maxpts 

xyz (kk, j , ii ) =temp (incr) 

write(6,*)  '  new  temp  ', ii , kk, incr , xyz (kk, j , ii ) 
incr=incr+l 
end  do 
end  do 
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c  Generate  parametric  array  based  on  the  same  knot  set  for  each  curve 

Q*********************************************************************** 


do  i=l,maxpts 
t_gpar { i ) = 

Sc  real  (  (i-1 )  /  (maxptS“l .  0 )  ) 

end  do 

c  Diagnostics 

if  (diag  .eq.  .true.)  then 
write (6,*)  ’  ' 

write(6,*)  '***  DIAG.  ON  T_GPAR  ***’ 

c  write ( 6 , fmt= ' (lx, '  Curve  number= ' , i3 ) ' )  j 

do  loop2=l,maxpts 

write (6, fmt= ' (lx, i6, fl2 . 6) ' ) 

Sc  loop2  ,  t_gpar  { loop2  ) 

end  do 
end  if 

c  End  Diagnostics 

Q*********************************************************************** 

c  Fit  new  interpolated  input  points  using  DTNSI 

Q*******-**^*****************************-**********'********************** 

do  ii=:l,ndep 

if  (ii.  eq.  1)  then 
icc=-l 
else 

icc=2 
end  if 


c  Load  input  array  of  dependant  variables  into  temp  array 
do  kk=l , npts_curv { j ) 

temp (kk) =xyz (kk, j , ii ) 
end  do 


call  dtnsi (npts_curv( j ) , 

Sc  t_gpar , 

Sc  temp,ndeg,  icc,hold,nwork,maxc, 

Sc  c_carray. 

Sc  len_c,ier) 


c  Error  Check 

if  (ier  .It.  0)  then 

write (6,*)  '  DTNSI  returned  IER= ' , ier 

stop 
end  if 


c  Check  size  of  C  array  against  what  is  output 
call  dtcsiz (c_carray, isize, ier) 
if  (ier  ,ne.  0)  then 

write (6,*)  ‘  DTCSIZ  returned  IER= ' , ier 

end  if 

if  (isize  .ne.  len_c)  then 
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write (6,*)  'C  size  does  not  match!!* 
stop 
end  if 

end  do 

c  Diagnostics 

if  (diag  .eg.  .true.)  then 
call  f it_diag (c_carray, j ) 
end  if 

c  End  Diagnostics 


c  Load  curve  data  into  tmp  array 


do  nloop=l , len_c 

c_tmp ( ipntr_s ( j )  +  nloop-1)  = 

Sc  c__c  array  (nloop) 

ich=ipntr_s  ( j  )  +nloop‘-l 
end  do 

c  Set  pointer  into  tmp  for  each  location  of  next  curve 
if  (j  .ne.  ncurv)  then 

ipntr_s{j+l)  =  len_c  +  ipntr_s(j) 
end  if 

c*  *  * 

end  do  lend  curve  loop  ...end  of  surface (i) 


c  *  * 

c  Store  first  point  of  each  section  to  parameterize  t  space 

Q  *  ★  * 


c  Use  first  point  of  station. . .pnt (1) 
index=l 

do  m=l ,  ndep__gpar 
do  i=l, ncurv 

temp (index) =xyz (1, i,m) 
write (6,*)  '  t  temp  i,m, temp (index) 

index= index+ 1 
end  do 
end  do 

c  Diagnostics  on  temp  array.. (i.e.  input  data) 
if  (diag  .eg.  .true.)  then 
write (6,*)  '  ’ 

write (6,*)  '  ' 

write (6,*)  '==========  T  CURVE  ==========  ' 

c  write ( 6 , fmt= ’ (lx, 'Data  for  T  parameter  =*) ') 

write (6,*)  ’  k  m  indx  input  data' 

index=i 
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do  in=l ,  ndep_gpar 
do  k=l,ncurv 

write  (6,  fint=  ’  (lx,  3i4,  fl2 . 6)  '  )  k,m,  index, 
&  temp (index) 

index=index+l 
end  do 
end  do 
end  if 

c  End  Diagnostics 


c  Set  up  dtgpar  arguments 
npt_gpar ( 1 )  =  ncurv 
ndom_gpar  =  1 

s,  t) 

c  ndep_gpar  =  1 

ndim_gpar  =  ncurv 


! Number  of  data  points  in  t  direction 

’Number  of  indep  variables  (i.e. 

INumber  of  depend  variables  (i.e.  x,y,2) 
!Max  parameter  dimension 


call  dtgpar  (npt_gpar , temp , ndom_gpar , ndep_gpar , work , nwork , 
&  ndim_gpar , s_gpar , ier ) 

do  l=l,npt_gpar (1) 
tdir ( 1 ) =s_gpar ( 1 ) 
write (6,*)  ’  tdir  ',l,tdir(l) 

enddo 

if  (ier  ,ne.  0)  then 

write (6,*)  '  DTGPAR  returned  IER= ' , ier 

stop 
end  if 


c  Diagnostics 

if  (diag  .eq.  .true.)  then 
write(6,’')  ’  ' 

write (6,*)  '***  DIAG.  ON  NEW  T_GPAR  ***' 

c  write ( 6 , fmt= ' (lx, ' (1)  Curve  number^ ’ , i3 ) ' )  j 

do  loop2=l ,  ndim__gpar 

write(6, fmt=' (lx, i6, 2fl2 . 6) ’ ) 

5c  loop2  ,  s_gpar  ( loop2  ) 

end  do 


c  Check  on  new  c_tmp  array 
write (6,*)  '  ' 

write (6,*)  '  ’ 

write (6,*)  '  ****  C_TMP  ****  ‘ 

call  f it_diag (c_tmp, 999) 

end  if 


^  ********************************************************************** 
c  Fit  surface  to  curves 

^  ************★************★**★★*★*****★**★★*★★**★*★**★***★************* 
call  dtcrbl ( c_tmp , len_c , 
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& 

Sc 

Sc 


s_gpar, 

ncurv,  ndeg,  work,  nwork, 
s_c array,  ier) 


do  i=l,100 

write (6,*)  '  s_carray  ' , i , s_carray { i ) 

enddo 

if  (ier  .ne-  0)  then 

write (6,*)  '  DTCRBL  returned  IER= ' , ier 

if  ((ier  .eq.  1)  .or.  (ier  .eq.  2))  then 

write (6,*)  '  ier=l  =>  some  illconditioning ' 

write (6,*)  '  ier=2  =>  severe  illconditioning’ 

else 
stop 
endif 
end  if 

c  Diagnostics 

if  (diag  .eq.  .true.)  then 
call  f it_diag ( s_carray, id) 
end  if 

c  Determine  length  of  C  array 

call  dtcsiz (s_carray, len_c, ier) 
if  (ier  .ne.  0)  then 

write (6,*)  '  DTCSIZ  returned  IER= ' , ier 

end  if 


return 

end 

subroutine  f it_diag (carray, id) 
implicit  double  precision  (a“h,0“Z) 
include  'csdcfd.par' 
parameter (ndim=6 , ndep=6 ) 
parameter (maxc= (ndim+1 ) *imxs* jmxs ) 
dimension  carray (maxc) 

double  precision  plo (2 ) ,phi (2 ) 
integer  ploc ( 3 ) , qloc ( 4 ) 
integer  kord(2) ,ncoef (2) 

call  dtget (carray, . true . , 2 ,n,mraw,mdep, kord,ncoef ,plo,phi, ier) 


write (6,*)  '  ' 

write (6,*)  '  ***  DTGET  ON  C  ARRAY  *** ' 

write (6, fmt= ' (lx, / , 


Sc 

'  ’  (1) 

Curve  number= 

"  ,13, /, 

Sc 

"  (2) 

No. 

indep.  variables= 

' ■ ,13, /, 

Sc 

"  (3) 

No. 

dep.  variables  c{2)= 

' ' ,13, /, 

Sc 

•  ■  (4) 

No. 

dep.  variables  {c(2)-l 

if  c(2) 

neg.}=' • ,13, /, 

Sc 

’  ’  (5) 

Order  of  spline  U  and  V= 

’ ' ,215, /, 

Sc 

'  ’  (6) 

No. 

of  basis  funtions  in  U 

and  V= 

’ ' ,2il0,/. 

Sc 

’  ‘  (7) 

IER 

error  flag= 

' ' ,110,/, 

Sc 

'  •  (8) 

Parameter  limit  low= 

' • ,2fl2.6,/. 
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Sc  ''{9)  Parameter  limit  high=  '’,2fl2.6)') 

Sc  id ,  n ,  mraw ,  mdep ,  kord ,  ncoef ,  ier ,  plo ,  phi 

return 
end 

c  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

subroutine  load (mode, idir,nspts, ft) 
c  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

implicit  double  precision  {a-h,o-z) 
include  ' csdcfd.par ’ 

common  /struct/  sxs { imxs , jmxs , kmxs ) 

Sc ,  sys  { imxs ,  jmxs ,  kmxs )  ,  szs  ( imxs ,  jmxs ,  kmxs )  ,  is 
js , ks, isg, j  sg, ksg 

dimension  ft(dnstr+3) 

c 

m=0 

do  k=l,ksg 
do  j=l,jsg 
do  i=l,isg 
m=m+l 

if (idir .eg. 1)  ft (m) =sxs (i, j ,k) 
if (idir .eg. 2)  ft (m) =sys (i , j , k) 
if (idir .eg. 3 )  ft (m) -szs (i , j , k) 
enddo 
enddo 
enddo 
c 

return 

end 

subroutine  search ( ipdir , lout , mout , iout , j  out , xa , ya , za , xs , ys , zs ) 

implicit  double  precision  (a-h,o~z) 
include  'csdcfd.par' 
c 

c  xs,ys,zs  -  structural  grid  points 

c  sxs, sys, szs  -  structural  mode  shapes  values  at  grid  points 

c  xa,ya,za  -  aerodynamic  grid  points 

c  sxa,sya,sza  -  calculated  aerodynamic  deflections 

c  isg,jsg,ksg  -  number  of  structural  points 

c  is,js,ks  -  number  of  structural  points  (  for  each  mode) 

c  ia,ja,ka  -  number  of  aerodynamic  points 

c 
c 

common  /struct/  sxs (imxs, jmxs , kmxs) 

Sc ,  sys  ( imxs ,  jmxs ,  kmxs )  ,  szs  ( imxs ,  jmxs ,  3cmxs )  ,  is 
& , j  s , ks, isg, j  sg, ksg 

common  /str/  xt (dnstr ) ,yt (dnstr ) , zt (dnstr) , f t (dnstr+3 ) , nspts 
dimension  xs (4 ) ,ys (4) , zs (4 ) 

iout=0 

jout=0 
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lout=0 

mout=0 

go  to  (300,200,100)  ipdir 
c 

c  x-y  plane  (ipdir=3) 

c 

100  continue 

do  l=l,jsg-l 
do  i=l,isg-l 
m= (1-1 ) *isg+i 
mpl=m+isg 

c  write (6,*)  '  xy  ' , xt (m) , xa, xt (m+l ) 

if (xt (m) . gt .xa)  go  to  150 
if (xt(m) . le.xa.and.xt (m+l) .ge.xa)  then 

if (yt (m) .gt.ya.and.yt (m+l) .gt.ya)  go  to  120 
if (yt (m) , le .ya . and.yt (mpl) .ge ,ya)  then 
mout=m 
jout=l 
iout=i 
lout=l 
go  to  500 
endif 

if  (yt(m+l)  .  le.ya. and.yt  (mpl  +  1)  .ge.ya)  then 
mouc=m 
jout=l 
iout=i 
lout=l 
go  to  500 
endif 
endif 

150  continue 
enddo 

120  continue 

enddo 

c  compute  the  extrapolation  locations 

lout=0 
mout=0 
m=l 

if (xt{m) .gt .xa.or -Xt (m+isg-1) .It.xa)  then 
if (xt{m) .gt.xa)  iout=l 
if (xt (m+isg-1 ) . It .xa)  iout=isg 
if (yt(iout) .gt.ya)  then 
jout=l 
lout=-3 
return  v 

endif 

do  j=l,jsg-l 

m={ j-1) *isg+iout 

if  (yt(m)  .  le.ya. and.yt  (m+isg)  .ge.ya)  then 
lout=-l 
jout=j 
return 

endif 
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enddo 

if  (yt ( ( jsg-1) *isg+iout) . It .ya)  then 
jout=j  sg 
lout=-3 
return 

endif 

endif 

c  outside  span 

m=l 

if (yt (m) .gt .ya.or .yt ( ( jsg~l) *isg) . It .ya)  then 
if (yt{m) .gt.ya)  jout=l 
if (yt ( (jsg-1) *isg+l) .It .ya)  jout=jsg 
if (xt (m) .gt . (xa) )  then 
iout=l 
lout=-3 
return 

endi  f 

if (xt ( (jsg-1) *isg+isg) . It .xa)  then 
iout=isg 
lout=-3 
return 

endif 

do  i=l,isg-l 

m= (j out-1) *isg+i 

if  (xt(in)  .  le .xa .and.xt  (lu+l)  .ge.xa)  then 
lout=-2 
iout=i 
return 

endif 

enddo 

endif 

write (6,*)  'error  in  search',  xa,  ya 
return 

c  y-z  plane  (ipdir=2) 

200  continue 

do  1=1, jsg-1 
do  i=l,isg-l 
m=  (1-1) *isg+i 
mpl=m+isg 

if (zt(m) .gt.za)  go  to  250 
if ( zt (m) . le . za.and. zt (m+1 ) .ge . za)  then 
iout=i 

if  (yt  (in)  .gt  .ya)  go  to  220 
if  (yt  (m)  .le.ya.and.yt  (mpl)  .ge.ya)  then 
jout=l 
mout=m 
lout=l 
go  to  500 
endif 

220  continue 

endif 

250  continue 
enddo 
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enddo 

write (6,*)  ’error  ’,ya,za 

lout=0 

return 

c  x-z  plane  {ipdir=l) 

300  continue 

do  l=l,jsg-l 
do  i=l,isg-l 
m= {1“1) *isg+i 
mpl=m+isg 

if (xt (m) . gt .xa)  go  to  350 
if (xt{m) . le . xa . and. xt (m+l ) .ge.xa)  then 
if (zt (m)  .gt.za)  go  to  320 
if (zt{m) . le . za . and. zt (mpl ) .ge.za)  then 
j  out=l 
iout=i 
mout=in 
lout=l 
go  to  500 
endif 

320  continue 

endif 

350  continue 
enddo 
enddo 

write (6,*)  'error  ',xa,za 

lout=0 

return 

c  load  structural  panel 

500  continue 

jp=inout+isg 
jpl=inout+isg+l 
xs  (1)  =xt  (mout) 
ys  (1)  =yt  (mout) 
zs (1) =zt (mout) 
xs ( 2 ) =xt (mout+1 ) 
ys ( 2 ) =yt (mout+1 ) 
zs (2 ) =zt (mout+l) 
xs (4) =xt { jp) 
ys(4)=yt (jp) 
zs (4) =zt ( jp) 
xs  (3) =xt ( jpl) 
ys  (3) =yt  ( jpl) 
zs (3) =zt ( jpl) 
c 

c  final  checks 

c 

if { ipdir . eq. 2 )  go  to  600 

if (xa . ge .xs (4) . and.xa . le .xs (3 ) )  go  to  600 
xr=  (xs  (4)  -xs  (1)  )  *  (ya~ys  (1)  )  /  (ys  (4)  -ys  (1)  ) 
if{xr.le.xa)  go  to  600 

xr= (xs (3 ) -xs (2 ) ) * (ya-ys (2 ) ) / (ys (3 ) -ys (2) ) 
if(xr, ge.xa)  go  to  600 
if (iout .eq.l)  then 
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lout=0 

return 

endif 

mout=inout“l 
go  to  500 
600  continue 

if (ipdir .eq. 1)  go  to  700 

if (ya.ge.ys(l) .and.ya.ge.ys(2) )  go  to  700 
yr= (ys (2) -ys (1) )*(xa“Xs(l) ) / (xs (2 ) -xs (1 ) ) 
if(yr.le.ya)  go  to  700 

yr= (ys (3) -ys (4) ) * (xa-xs (4) ) / (xs (3 ) -xs (4) ) 
if(yr.ge.ya)  go  to  700 
if ( jout . eq. 1 )  then 
lout=0 
return 
endif 

mou  t  =inou  t  -  i  s  g 
go  to  500 
700  continue 

if ( ipdir . eq. 3 )  go  to  800 
if ( za.ge . zs (4) .and. za. le . zs ( 3 ) )  go  to  800 
zr= (zs (4) -zs (1) ) * (xa-xs (1) ) / (xs (4) -xs (1) ) 
if(zr.le-za)  go  to  800 

zr=(zs(3)-zs(2) ) * (xa-xs (2 ) ) / (xs (3 ) -xs (2 ) ) 
if(zr.ge.za)  go  to  800 
if (iout.eq.l)  then 
lout=0 
return 
endif 

mout=inout-l 
go  to  500 

800  return 
end 
c 

subroutine  bivarin (xd, yd, fd,x,y, f , ierr) 

c  Prograrraner :  V.  M.  Kaladi,  Nov  2,  '93 

implicit  double  precision  {a-h,o-2) 

parameter  (eps=le-5,  itmax=500,  eps2=le-3) 
dimension  xd{4) ,yd (4) , fd (4) 
dimension  a (2, 2) 

c  Given  the  values  of  a  function  f(x,y)  at  four  points 
c  { (xd{i) ,yd{i) ,  i=l,4)  as  fd{i),  i=l,4  and  the  point 
c  {x,y)  inside  the  quadrilateral  formed  by  the  data  points, 
c  this  subroutine  computes  the  linear  bivariate  interpolated  value 
c  of  f (x,y) . 

c  statement  functions 
c  g(u,v)=:  sum_(j=l,4)  of  gj*psij(u,v) 
c  =  (gO  +  ga*u  +  gb*v  +  gc'^u^v) 
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c  where  gj  are  values  at  the  data  points . 

g0(gl,g2,g3,g4)=  0.25*(  gl  +  g2  +  g3  +  g4) 

ga{gl,g2,g3,g4)=  0.25*(-gl  +  g2  +  g3  -  g4) 

gb(gl,g2,g3,g4) =  0.25*(-gl  -  g2  +  g3  +  g4) 

gc(gl,g2,g3,g4)=  0.25*(  gl  -  g2  +  g3  -  g4) 

gd(gl,g2,g3,g4) =  { (gl-g2) * (gl-g2 ) + {g3-g4 ) * (g3-g4) ) 
c  end  statement  functions 
c 

c  check  to  see  if  there  are  identical  points 
c 

do  1=1,4 

chk  =  gd(xd(l) ,x,yd(l) ,y) 

c  chk=(xd{l)-x) *{xd(l)-x)+(yd{l) -y) * (yd{l)~y) 

if (sqrt{chk) .le.eps)  then 
f=fd(l) 
return 
endif 
enddo 

ierr=  0 

x0=  gO (xd(l) ,xd{2) ,xd(3) ,xd(4) ) 
y0=  gO (yd(l) ,yd{2) ,yd(3) ,yd{4) ) 
xa=  ga(xd(l) ,xd(2) ,xd(3) ,xd(4) ) 
ya=  ga(yd(l) ,yd(2) ,yd(3)  ,yd(4) ) 
xb=  gb ( xd ( 1 ) , xd ( 2 ) , xd ( 3 ) , xd ( 4 ) ) 
yb=  gb (yd ( 1 ) , yd ( 2 ) , yd ( 3 ) , yd ( 4 ) ) 
xc=  gc (xd(l) ,xd(2) ,xd(3) ,xd(4) ) 
yc=  gc (yd ( 1 ) , yd ( 2 ) , yd ( 3 ) , yd { 4 ) ) 

up=  0.0 
vp=  0 . 0 
iter=0 

10  continue 

a (1,1)=  xa  +  xc*vp 
a{l,2)=  xb 
a  (2,1)=  ya 
a  (2,2)=  yb  +  yc*up 

if ( (a(l,l)*a(2,2)  -  a (2 , 1) *a (1 , 2 ) ) . eq. 0 . 0 )  go  to  20 

deti=  1.0/(a(l,l)*a(2,2)  -  a (2 , 1 ) ^a (1, 2 ) ) 

u=  (a (2 , 2 ) * (x-xO )  “  a(l, 2) * (y-yO) ) *deti 

v=  (a(l,l)*(y-y0)  -  a  (2 , 1 )  *  (x--x0 )  )  *deti 

errnorm=  dsqrt  (  (u--up)**2  +  (v-vp)**2  ) 

up=u 

vp=v 

iter=  iter+1 

if  (errnorm  .gt.  eps  .and.  iter  .It.  itmax)  go  to  10 

if  (iter  .ge.  itmax)  then 

print*, 'Error,  max  no.  of  iterations  exceeded  ' 
print*, 'in  subroutine  bivarin' 
ierr=  1 

write (6,*)  '  errnorm  =  errnorm, '  eps  =  ' , eps 

write (6,*)  '  points  ',xa,ya 
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c 

c 


write{6,*)  '  xd  ' , xd (1 ) , xd (2 ) , xd {3 ) , xd { 4 ) 
write{6,*)  '  yd  \yd(l)  ,yd{2)  ,yd(3 )  ,yd(4) 
stop 
end  if 

if  (u  .It.  -1.0  .or.  u  .gt.  1.  .or.  v  ,lt.  -1  .or.  v  .gt.  1)  then 
print Error,  interpolation  point  {x,y)  is  not  within  ' 

c  print*, ’the  quadrilateral  of  data  points.’ 

c  err=  . true . 

c  return 

c  end  i f 


c  Assuming  any  point  falling  outside  the  quadrilateral  of  data  points 
c  is  due  to  round  off  error  the  point  is  reset  to  the  nearest  boundary, 
if  {abs(u).gt.  1.0)  u=  int(u) 
if  {abs(v).gt.  1.0)  v=  int(v) 


f=  g0(fd(l),fd(2),fd(3),fd(4))  + 

&  u  *  ga(fd(l) ,fd(2) ,fd(3) ,fd{4) )  + 

&  V  *  gb(fd(l) ,fd(2) ,fd(3) ,fd{4) )  + 

&  u*v*gc(fd(l) ,fd(2) ,fd(3) ,fd(4) ) 
c 
c 

t  =  (x  -xd(l))/(xd{2)-xd(l) ) 
u  =  (y  “yd(l)  )  /  (yd(4) -yd(l)  ) 

fa=  {l.‘-t)*(l.-u)*fd{l)  +  t*{l.-u)*fd(2)  +  t*u*fd(3) 
1  +  (l.-t) *u*fd{4) 


return 

c  The  det  is  0.,  so  we  missed  an  identical  point  the 

c  first  time  through 

20  continue 


c  check  to  see  if  there  are  identical  points 
c 

mchk=  0 

chkmin=9 . 999e5 
do  1=1,4 

chk  =  gd(xd(l)  ,x,yd(l)  ,y) 
if (chk . It . chkmin)  then 
chkmin=chk 
mchk=l 

endif 

enddo 

f=fd{mchk) 

return 

end 

- - 

subroutine  planel (x,y, z,n, ipdir, planar) 
implicit  double  precision  {a-h,o-z) 

C  This  routine  checks  to  see  if  the  surface  resides  within  a  single  plane 
C  It  uses  input  structural  coordinates 
C  planar  =  .true. 

C  =  .false. 
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c - 

integer  ipdir,  planar 
dimension  x{n) ,  yin),  z(n) 
c 

c  local  variables 
c 

dimension  a{3) ,  b(3),  c{3),  d{3) 
c 

c  external  functions 
c 


double  precision  fmag 
c 

c  scan  thru  all  points  &  check  cross  product 
c 


eps=le“28 
ixycnt=0 
iyzcnt=0 
ixzcnt=0 
do  i=l,  n 
if  ( i . eq . 1 )  then 
d(l)  =  x(n-l) 
d{2)  =  y(n-l) 
d{3)  =  z(n-"l) 
else 

d(l)  =  x(l)  - 
d{2)  =  y(l)  - 
d(3)  =  z(l)  - 
endif 

if  ( i . eq . n )  then 
b(l)  =  x(2)  - 
b(2)  =  y{2)  - 
b{3)  =  z(2)  - 
else 

b(l)  =  x(n)  - 
b{2)  =  y(n)  - 
b(3)  =  z{n)  “ 
endif 


“  x(i) 
-  y(i) 
“  z  (i) 

x(i) 

y(i) 

2  (i) 


x(i) 
y(i) 
2  (i) 

X(i) 

y(i) 
2  (i) 


call  acrossb (d, b, a)  !  find  unit  normal 

c 

c  Division  by  zero  taking  place  in  this  section 
c  was  a (c) =a (c) /fmag{a, 3 ) 
c 

a{l)  =  a(l) / {fmag(a,3)+eps) 
a (2)  =  a {2 ) / { fmag (a, 3 ) +eps) 
a (3)  =  a{3) / {fmag(a; 3)+eps) 
c 

c  check  to  see  if  points  reside  on  x-y  plane 
c  check  if  axis  and  unit  normal  correspond 
c 

b(l)  =  0  I  axis  normal 
b(2)  =  0 
b(3)  =  1 

call  acrossb (a, b, c) 
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cmag  =  f mag ( c , 3 ) 

i f  { cmag . eq . 0 . 0 )  ixycnt  =  ixycn t  +  1 
c 

c  check  to  see  if  points  reside  on  y-z  plane 
c 

b{l)  =  1  I  axis  normal 

b(2)  =  0 

b(3)  =  0 

call  acrossb (a,b, c) 
cmag  =  f mag ( c , 3 ) 

if  (cmag . eq. 0 . 0 )  iyzcnt  =  iyzcnt  +  1 
c 

c  check  to  see  if  points  reside  on  x-z  plane 
c 

b(l)  =  0  !  axis  normal 

b{2)  =  1 

b(3)  =  0 

call  acrossb (a, b, c) 
cmag  =  fmag(c,3) 

if  (cmag. eq. 0.0)  ixzcnt  =  ixzcnt  +  1 
enddo 
c 

c  set  direction 
c 

icnt  =  0 

if  ( ixycnt . eq . n )  then 
ipdir  =  3  !  surface  resides  in  x-y  plane 
planar  =  1 
icnt  =  icnt  +  1 
elseif  (ixzcnt .eq.n)  then 
ipdir  =  2  !  surface  resides  in  x-z  plane 
planar  =  1 
icnt  =  icnt  +  1 
elseif  (iyzcnt .eq.n)  then 
ipdir  =  1  !  surface  resides  in  y-z  plane 
planar  =  1 
icnt  =  icnt  +  1 
else 

planar  =  0 
endif 
c 

c  check  checksum 
c 

if  (icnt.gt.l)  then 
write (6,*)  'ERROR:  In  PLANE  routine' 
write (6,*)  'Possible  grid  problem' 
stop 
endif 
return 
end 

- - 

c  This  subroutine  finds  c  =  a  X  b 
c  a,b,c  are  3D  vectors 

subroutine  acrossb (a, b, c ) 
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implicit  double  precision  (a-h,o-2) 
double  precision  a(3),  b(3),  c(3) 

c(l)  =  a(2)*b(3)  -  b(2)-a(3) 

c{2)  =  b(l)*a{3)  -  a(l)*b{3) 

c(3)  =  a(l)*b(2)  -  b(l)-a(2) 

return 

end 


double  precision  function  f mag (array, num) 
integer  num 

double  precision  array (num) , sum 

sum  =  0.0 
do  i=l,  num 

sum  =  sum  +  array (i) *ar ray (i) 
enddo 

fmag  =  dsqrt(sum) 

return 

end 


subroutine  pol int ( xa , ya , n , x , y , dy ) 
implicit  double  precision  (a-h,o-z) 
include’  'csdcfd.par' 
parameter (nmax=dnstr) 

dimension  xa(nmax)  ,ya(nmax)  ,c(nmax)  ,d(nmax) 
ns=l 

dif=abs (x-xa (1) ) 
do  i=l,n 

write (101,*)  '  polint  ' , i,xa (i) ,ya (i) 

enddo 
do  i=l,n 

dift=abs (x-xa (i) ) 
if (dif t . It . dif )  then 
ns=i 

dif=dift 
endif 
c { i ) =ya ( i ) 
d ( i ) =ya ( i ) 
enddo 
y=ya(ns) 
ns=ns-l 
do  m=l,n“l 
do  i=l,n-m 
ho=xa ( i ) “X 
hp-xa (i+m) -X 
w=c  (i+1)  -'d(i) 
den=ho-hp 

i f ( den . eq . 0 . )  then 

write (6,*)  ’polint  problem  ’ 
write (6,*)  x 
do  ii=l,n 
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write (6, *)  ii,xa (ii) ,ya (ii) 
enddo 
stop 
end  if 
den =w/ den 
d(i) =hp*den 
c (i ) =ho*den 
enddo 

if (2*ns . It .n-m)  then 
dy=c (ns+1) 

else 

dy=d{ns) 

ns=ns-l 

endif 

y=:y+dy 

enddo 

return 

end 

c 

subroutine  plane (ipdir, planar ) 
implicit  double  precision  (a-h,0“Z) 
include  ' csdcfd.par ' 

common  /str/  x(dnstr) ,y (dnstr) , z (dnstr) , ft (dnstr+3 ) ,nspts 

integer  ipdir,  planar 

dimension  a (3) ,  b(3),  c(3),  d{3) 


C  This  routine  checks  to  see  if  the  surface  resides  within  a  single  plane 
C  It  uses  input  structural  coordinates 
C  planar  =  .true. 

C  =  .false. 

- - 


c 

c 

c 

c 

c 

c 


external  functions 

double  precision  fmag 

scan  thru  all  points  &  check  cross  product 

eps=le“-28 

ixycnt=0 

ixzcnt=0 

iyzcnt=0 


n=nspts 
do  i=l,  n 
if  (i.eq.l)  then 

d{l)  =  x{n-l)  -  x(i) 

d{2)  =  y{n-l)  -  y(i) 

d{3)  =  z{n-l)  -  z(i) 

else 


d(l)  =  x(l)  -  x(i) 

d(2)  =  y(l)  ~  y(i) 

d(3)  =  z(l)  -  z(i) 

endif 
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if  (i.eq.i 

a)  then 

b(l)  = 

x(2)  - 

x{i) 

b(2)  = 

y(2)  - 

y(i) 

b(3)  = 

2(2)  - 

z  (i) 

else 

b(l)  = 

x(n)  - 

x{i) 

b(2)  = 

y(n)  - 

y(i) 

b{3)  = 

z  (n)  - 

z  (i) 

endif 


call  acrossb(d,b,a)  '  find  unit  normal 

c 

c  Division  by  zero  taking  place  in  this  section 
c  was  a  (c)  =:a  (c) /fmag{a,  3 ) 
c 

a{l)  =  a (1) / ( fmag (a, 3) +eps) 
a (2)  =  a (2 ) / ( fmag (a, 3 ) +eps) 
a (3)  =  a{3) / (fmag(a,3)+eps) 
c 

c  check  to  see  if  points  reside  on  x-y  plane 
c  check  if  axis  and  unit  normal  correspond 
c 

b(l)  =  0  I  axis  normal 
b(2)  =  0 
b{3)  =  1 

call  acrossb (a, b, c) 
cmag  =  f mag ( c , 3 ) 

if  (cmag. eq. 0 . 0)  ixycnt  =  ixycnt  +  1 
c 

c  check  to  see  if  points  reside  on  y-z  plane 
c 

b{l)  =  1  I  axis  normal 
b(2)  =  0 
b(3)  =  0 

call  acrossb (a,b, c) 
cmag  =  f mag ( c , 3 ) 

if  (cmag . eq. 0 . 0)  iyzcnt  =  iyzcnt  +  1 
c 

c  check  to  see  if  points  reside  on  x-z  plane 
c 

b(l)  =  0  !  axis  normal 

b(2)  =  1 
b(3)  =  0 

call  acrossb (a, b, c) 
cmag  =  f mag ( c , 3 ) 

if  (cmag.eq. 0 . 0)  ixzcnt  =  ixzcnt  +  1 
enddo 
c 

c  set  direction 
c 

icnt  =  0 

write  (6,"^)  ’  Plane  counts  are  ixycnt ,  ixzcnt ,  iyzcnt 

if  (ixycnt .eq.n)  then 
ipdir  =  3  !  surface  resides  in  x-y  plane 
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planar  =  1 
lent  =  lent  +  1 
elseif  (ixzcnt . eq.n)  then 
ipdir  =  2  I  surface  resides  in  x-z  plane 
planar  =  1 
ient  =  ient  +  1 
elseif  (iyzent . eq.n)  then 
ipdir  =  1  1  surface  resides  in  y-z  plane 
planar  =  1 
ient  =  ient  +  1 
else 

planar  =  0 

c  if  plane  is  curved,  then  the  counts  won't  be  equal 

c  to  n.  But,  the  other  counts  should  also  be  equal 

c  to  0 .  Correct  for  this 

i f ( ixyent . gt . 0 . and . ixzcnt . eq . 0 . and . iyzent . eq . 0 )  then 
planar=:l 
ipdir=3 
icnt=icnt+l 
endif 

i f ( ixyent . eg . 0 . and . ixzcnt . gt . 0 . and . iyzent . eq . 0 )  then 
planar=l 
ipdir=2 
icnt=icnt+l 
endif 

i f ( ixyent . eq . 0 . and . ixzcnt . eq . 0 . and . iyzent . gt . 0 )  then 
planar=l 
ipdir=3 
icnt=icnt+l 
endif 
endif 
c 

c  check  checksum 
c 

if  (icnt.gt.l)  then 
write (6,*)  'ERROR:  In  PLANE  routine' 
write (6,*)  'Possible  grid  problem’ 
stop 
endif 
return 
end 


18. 
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APPENDIX  C  -  ALGORITHM  CODES 


csdcfd-par : 

c  user-defined  parameters 

c  imxs  =  streamwise  (x-direction)  points  on  structural  grid 

c  jmxs  =  spanwise  (y-direction)  points  on  structural  grid 

c  kitixs  =  normal  ( z^direction)  points  on  structural  grid 

c  ***  kinxs=l - always! 

c  imxa  =  streamwise  (x-direction)  points  on  aerodynamic  grid 

c  jmxa  =  spanwise  (y-direction)  points  on  aerodynamic  grid 

c  kmxa  =  normal  ( z-direction)  points  on  aerodynamic  grid 

c  ***  kmxa=l - always! 

c  nwk  =  work  array  for  nubs  {dt_nurbs) 

c  30k  appears  to  be  fine  for  all  cases  examined 

c  DT_NURBS  will  flag  if  it's  not  high  enough 

parameter  (imxs=20, jmxs=30,kmxs=l) 
parameter  ( imxa=220 , jmxa=80 , kmxa=l ) 
parameter  ( nwk=  30000) 
c  computed  parameters 

c  dnstr  =  total  number  of  structural  data  points  on  surface 

c  dnaro  =  total  niomber  of  aerodynamic  data  points  on  surface 

integer  dnstr, dnaro 

parameter  (dnaro=imxa* jmxa*kmxa, dnstr=imxs* jmxs*kmxs) 
c 

C 

c  This  program  handles  the  4  3-D  methods 
c 

program  main 

implicit  double  precision  {a-h,o-z) 
include  ' csdcfd.par ' 

external  cputim 
c 

c  xs,ys,zs  -  structural  grid  points 

c  sxs,sys,szs  -  structural  mode  shapes  values  at  grid  points 

c  xa,yz,za  -  aerodynamic  grid  points 

c  sxa,sya,sza  -  calculated  aerodynamic  deflections 

c  isg,jsg,ksg  -  number  of  structural  points 

c  is,js,ks  -  number  of  structural  points  {  for  each  mode) 

c  ia,ja,ka  -  number  of  aerodynamic  points 

c 
c 

common  /aero/  xa (dnaro) ,ya (dnaro) , za (dnaro) , fa (dnaro) , npts 
common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , ft (dnstr+3 ) ,nspts 
c ommon / f i 1 en / f nm 

common  /struct/  sxs (imxs, jmxs, kmxs) 
sys (imxs, jmxs, kmxs) , szs (imxs, jmxs, kmxs) , is 
&, js,ks, isg, jsg,ksg 
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dimension  xs  (imxs,  jmxs,  kmxs)  , ys  { imxs ,  jmxs , kmxs)  , 
1  zs  ( imxs ,  jmxs ,  kmxs ) 

dimension  f(dnaro,3) 

c  -  device  dependent  real  oldtim, time, cputim 

characterise  fnm,  fnml,  f nm2  ,  f nm3  ,  fnm4 
c 

c  Read  in  the  file  names  containing  the  input  data 
c 

111  continue 
c 

c  Clear  all  of  the  variables 
c 

npts=0 
nspts=0 
do  l=l,dnaro 
xa(l)=:0.0 
ya(l)=0.0 
za(l)=0.0 
fa(l)=0.0 
f (1,3)=0,0 
enddo 

do  l=l,dnstr 
xt (1)=0.0 
yt (1)=0.0 
zt (1)=0.0 
ft (1)=0.0 
enddo 

ft (dnstr+1) =0 . 0 
ft (dnstr+2 ) =0 . 0 
ft {dnstr+3 ) =0 . 0 
c 

c  Read  in  the  new  filename  information 
c 

c***  —  device  dependent  oldtim=0.0 

write{*, i) ’Enter  the  structural  grid  filename’ 
read(i, ' (A) ’ ,end=9000) fnml 

write(*, i) 'Enter  the  structural  data  filename' 
read(*, ' (A) ’ ) fnm2 

write ( i , i )' Enter  the  aerodynamic  grid  filename’ 
read ( * , ' (A) ’ ) fnm3 

open(unit=13 , file=fnml, status= 'unknown' ) 
open(unit=15, file=fnm2, status= ' unknown ' ) 
open (unit=17 , f ile=fnm3 , status= ' unknown ' ) 

c 

c  read  in  data  pertaining  to  structural  grid  and  data 
c 

read (13, *)isg, jsg,ksg 
if (isg.eq. 0)  isg=l 
if ( jsg.eq. 0)  jsg=l 
if (ksg.eq. 0)  ksg=l 
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nspts=isg* j  sg^ksg 
c 

c  Error  check  on  dimensions 

c 

if {nspts .gt .dnstr)  then 

write (6^*)  '  You  have  exceeded  the  dnstr  dimension  ' 

1  nspts 

stop 
endif 

if (isg.gt . imxs)  then 

write (6,*)  '  You  have  exceeded  the  imxs  dimension 

1  isg 

stop 
endif 

if ( jsg.gt . jmxs)  then 

write (6,*)  ’  You  have  exceeded  the  jmxs  dimension 

i  jsg 

stop 
endif 

i f ( ksg . gt . kmxs )  then 

write (6,*)  '  You  have  exceeded  the  kmxs  dimension 

1  ksg 

stop 
endif 

c  End  error  checking 

c 

c  Read  remainder  of  structural  file 

c 

read (13,*)  (xt (m) ,m=l , nspts) , 

&  (yt (m) ,m=l, nspts) , (zt (m) ,m=l, nspts) 

close ( 13 ) 

read (15, *)ns 

read ( 15 , * ) is , j  s , ks 
if(is.eq.O)  is=l 
if(js.eq.O)  js=l 
if(ks.eq.O)  ks=l 

if (is .ne . isg. or . js ,ne . j sg . or . ks .ne .ksg)  then 

write (6,*)  '  Grid  and  Data  Dimensions  Dont  Match' 

write(6,*)  '  I  :  ',isg,is 

write (6,*)  ’  J  :  ',jsg,js 

write (6,*)  '  K  :  ',ksg,ks 

stop 
endif 
read (15, *) 

Sc  (  (  (sxs(i,  j,k)  ,i=l,is)  ,  j=l,  js)  ,k=l,ks)  , 

Sc  (  {  (sys  (i,  j  ,  k)  ,  i=l,  is)  ,  j=l,  js)  ,  k=l,  ks)  , 

Sc  (  (  (szs  (i ,  j  ,  k)  ,  i=l,  is)  ,  j=l ,  js)  ,  k=l ,  ks) 

closedS) 
c 

c  read  in  data  pertaining  to  aerodynamic  grid  and  data 
c 

read ( 17 , * ) ia , j  a , ka 
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if(ia.eq.O)  ia=l 
if(ja.eq.O)  ja=l 
if(ka.eq.O)  ka=l 
npts=ia* ja*ka 
c 

c  Error  check  on  dimensions 

c 

if (npts . gt . dnaro)  then 

write (6,*)  '  You  have  exceeded  the  dnaro  dimension 

1  npts 

stop 
endif 

i f ( ia . gt . imxa )  then 

write (6,*)  '  You  have  exceeded  the  imxa  dimension  ' 

1  ia 

stop 
endif 

if ( ja.gt .jmxa)  then 

write  ( 6, '  You  have  exceeded  the  jmxa  dimension  ' 
1  ja 

stop 
endif 

i f ( ka . gt . kmxa )  then 

write (6,*)  '  You  have  exceeded  the  kmxa  dimension  ' 

1  ka 

stop 
endif 

c  End  error  checking 

c 

c  Finish  reading  aerodynamic  data 

read {17 , *)  (xa(m) ,m=l,npts) , (ya(m) ,m=l,npts) , 

Sc  ( za  (m)  ,  m=l ,  npts ) 
closed?) 
c 

c  fill  output  arrays  with  zeros 

c 

do  m=l , 3 
do  1=1, npts 
f (l,m)=0.0 
enddo 
enddo 
c 

c  Prompt  user  for  which  scheme  to  use  for  interpolation 
c 

112  continue 

write (*,1) 
write(*,2) 
write ( * , 4) 
write ( * , 5 ) 
write ( * , 6 ) 
read(*,*)  meth 

c  assume  that  only  one  mode  shape  per  file* 

mode=l 

if (meth.lt. 0 .or .meth.gt . 4)  go  to  112 
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c 

c  Call  subroutine  of  chosen  method 
c 

if(meth  „eq»  1)  then 

c*** --device  dependent  stime=cputim(oldtim) 

c  Infinite  Plate  Spline 

c  (Must  choose  what  components  here) 

c 

write ( * , 7 ) 
read ( * , * )  ncomp 
if (ncomp . It . 4 )  then 
nss=ncomp 
nee=ncomp 
else 

nss=l 

nee=3 

endif 

do  l=nss,nee 

call  load (mode, l,nspts, ft) 
call  ips (mode, ierr) 
do  m=l,npts 
f  (m,  1)  =fa  (m) 
enddo 

c  redefine  aerodynamic  data  (modified  in  ips) 

open (unit=17 , f ile=fnm3 , status= ’unknown' ) 
read (17, *) ia, ja,ka 

read (17, *)  (xa(m) ,m=l,npts) ,  (ya(m)  ,m=l,npts) , 

Sc  (za(m)  ,m=l,npts) 
close(17) 
enddo 

elseif(meth  .eq.  2) then 
c  Thin  Plate  Spline 

call  mq(3,f) 
elseif(meth  .eq.  3) then 
c  Multiquadrics 

call  mq ( 1 , f ) 
elseif(meth  .eq.  4) then 
c  NUBS 

call  nurbs (mode , f ) 
endif 
c 

c  Check  amount  of  required  cpu  runtime  for  this  method 

r' 

—  device  dependent  time=cputim(stime) 

call  output (mode, ia, ja, ka, f ) 

close (13 ) 
closedS) 
close ( 17 ) 

c***  --  device  dependent  time=abs ( time-stime) 

call  calcmax (mode, f ) 

c***  —  device  dependent  oldtime=time 
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go  to  111 
9000  continue 
c 

c  format  statements 

c 

1  format (// /4x, ' Enter  choice  of  interpolation  methods:’) 

2  format {7x, ' 1]  Infinite  Plate  Splines’) 

4  format (7x, ' 2]  Thin  Plate  Spline') 

5  format {7x, ' 3]  Mul ti -Quadrics ’ ) 

6  format {7x, '4]  NUBS’) 

7  format {///4x, 

1’  What  kind  of  data  is  to  be  interpolated?',/, 

17x, '  1]  x-component  only 
27x, '  2]  y-component  only 
37x, ’  3]  z-component  only 
47x, ’  4]  all  three  components  ') 
c 

stop 

end 

c 

c  This  subroutine  generates  the  output  files 

c 

subroutine  output ( mode , ia , j  a , ka , f ) 
implicit  double  precision  {a-h,o-z) 
include  ' c sdc f d . par ' 

common  /aero/  xa (dnaro) ,ya (dnaro) , za (dnaro) , fa (dnaro) ,npts 

dimension  f (dnaro, 3) 
common/ filen/fnm 

character*80  of ile, nf ile,mf ile, Ifile, fnm 

write (6,*)  '  Enter  the  output  file  type  :  ' 

write (6,*)  '  0  :  Plot3d  ,  1  :  SGF  ' 

read(*,*)  itype 

write(6,*)'  Enter  aerodynamic  grid  +  mode  shape  file  name' 
read(*, ' (A) ' )nfile 

write{6,*)'  Enter  interpolated  function  file  name' 
write (6,*)'  Must  end  in  character  x  ’ 
read(*, ' (A) ' )ofile 
10  continue 

nvar=l 

if (itype. eg. 0)  then 

open (unit=102, file=nf ile, status=' unknown' ) 
write(102, *) ia, ja,ka 

write (102 , *) ( (xa (m) +f (m, 1) ) ,m=l,npts) , 

&  ( (ya (m) +f (m, 2 ) ) , m=l , npts ) , 

&  ( {za(m)+f (m,3) ) ,m=l,npts) 

write (103, *) ia, ja,ka 
write(103,*) ( (f (m,l) ) ,m=l,npts) , 

&  ( (f (m, 2) ) ,m=l,npts) , 

&  ( (f (m,  3) ) ,m=l,npts) 

close(102} 
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close (103) 
go  to  1000 

open (unit =103 , file=ofile, status= *  unknown ' ) 
write  (103  ,  ia,  ja^ka^nvar 
write (103,*) (f(ll,l) , ll=l,npts) 
close (103 ) 

do  11=1,80 

if (of ile (11 : 11) .eq. ’x' )  ie=ll 
enddo 

of ile ( 1 : ie) =of ile ( 1 : ie-1 ) / / ' y ' 

open (unit=103 , f ile=of ile, status= ' unknown ' ) 

write (103 , *) ia, ja, ka,nvar 

write (103,*) (f (11,2) ,ll=l,npts) 

close(103) 

do  11=1,80 

if  (ofiledlill)  .eq. 'y' )  ie=ll 
enddo 

of ile ( 1 : ie) =of ile (1 : ie-1 ) /  /  '  z  ' 
open (uni t=103 , f ile=of ile, status= ’ unknown' ) 
write (103 , * ) ia, ja, ka,nvar 
write (103,*) (f (11,3) ,ll=l,npts) 
close (103 ) 
else 

open (unit=102 , f ile=nf ile, status= ' unknown’ ) 

nz=l 

nr=0 

write (102,  '  (A)  '  )  nfile 
write (102,*)  nz 
write ( 102 , * ) ia, ja, ka 
write (102, ' (A) ' )  nfile 
write (102,*)  nr 
do  k=l,ka 
do  j=l,ja 
iss= ( j-1) *ia+l 
iee=j  *ia 

write (102 , * ) (xa (m) +f (m, 1) ,m=iss, iee) 
write (102 , * ) (ya (m) +f (m, 2 ) ,m=iss, iee) 
write  ( 102  ,  * )  (za  (m)  +f  (m,  3  )  ,in=iss,  iee) 
enddo 
enddo 
close (102 ) 
do  1=1,3 
if(l.eq.2)  then 
do  11=1,80 

if (ofile(ll:ll) .eq. 'x' )  ie=ll 
enddo 

of ile (1 : ie) =of ile (1 : ie-1 ) // 'y ' 
else  if  (l.gt.2)  then 
do  11=1,80 

if  (ofiledl :  11)  .eq.  'y '  )  ie=ll 
enddo 
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of ile ( 1 : ie) =of ile (1 : ie-l ) / / ’ z ' 
endif 

open (unit=103 , file=ofile, status= 'unknown' ) 

do  k=l,ka 

do  j=l,ja 

iss= ( j-1) *ia+l 

iee=j  *ia 

write (103 , * )  (f  {m, 1) ,m=iss, iee) 
enddo 
enddo 
close (103 ) 
enddo 
endif 
c 

1000  continue 
return 
end 
c 

c  This  subroutine  calculates  the  max/min  locations  and 

c  magnitudes 

c  (From  MPROC2D) 

subroutine  calcmax (mode, f ) 
implicit  double  precision  (a-h,o-z) 
include  ' csdcfd.par ’ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


xs,ys, zs 
sxs, sys, szs 
xa,yz, za 
sxa, sya, sza 
isg, jsg, ksg 
is, js, ks 
ia, ja, ka 


structural  grid  points 

structural  mode  shapes  values  at  grid  points 
aerodynamic  grid  points 
calculated  aerodynamic  deflections 
number  of  structural  points 

number  of  structural  points  (  for  each  mode) 
number  of  aerodynamic  points 


C 

C 

c 

c 

c 

C 


common  /struct/  sxs (imxs, jraxs,kmxs) 
l,sys(imxs, jmxs,kmxs) , szs { imxs , jmxs , kmxs) , is 
1, js, ks, isg, jsg, ksg 

common  /aero/  xa (dnaro) , ya (dnaro) , za (dnaro) , f a (dnaro) , npts 
common  /str/  xt(dnstr) ,yt(dnstr) ,zt(dnstr) ,ft(dnstr+3) ,nspts 
dimension  f ( dnaro , 3 ) 

Add  to  the  existing  file  7  the  check  data! 
open (unit=7 , f ile= ' accuracy.dat ' , status= ' unknown' ) 

141  read(7, *,end=142) 
go  to  141 

142  continue 

First,  find  maximum  in  structural  data 
tmp  =  dsgrt (sxs (1, 1, 1) *sxs (1, 1, 1) 

1  +  sys(l,l,l)*sys( 1,1,1) 

1  +  szs{l,l,l)*szs(l,l,l) ) 

tmp2  =  tmp 
tmp3  =  0 
locmax=l 
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locmin=l 

m=0 

do  k=l,ksg 
do  j=l;jsg 
do  i=l,isg 
m=in+l 

chktmp  =dsqrt (sxs {i, j , k) *sxs (i, j , k) 

1  +sys (i, j , k) *sys {i, j ,k) 

1  -i-szs(i,  j  ,k)  *S2S  (i,  j,k)  ) 
tmp3  =  tinp3  +  chktmp 
i f  ( chktmp . gt . tmp )  then 
tmp  =  chktmp 
locmax  =  m 
endif 

i f { chktmp . 1 t . tmp2 )  then 
tmp 2  =  chktmp 
locmin  =m 
endif 
enddo 
enddo 
enddo 

praax  =  tmp 
pmin  =  tmp2 
pavg  =  tmp3/nspts 

C  Find  maximum  values  in  interpolated  data 

tmp  =  dsqrt{f {l,l)*f (l,l)+f (l,2)*f (l,2)+f (l,3)*f (1,3) ) 
tmp2  =  tmp 
tmp3  =  0.0 
min=0 
max=0 

do  10  m=l,npts 

chktmp  =  dsqrt (f (m, 1) *f (m,  1) +f (m,  2 ) *f  (m,  2 ) 

+f {m,3)*f (m,3) ) 
tmp 3  =  tmp 3  +  chktmp 
if  (chktmp.gt . tmp)  then 
tmp  =  chktmp 
max  =  m 
endif 

i f ( chktmp .It. tmp2 )  then 
tmp 2  =  chktmp 
min  =  m 
endif 
continue 
dmax  =  tmp 
dmin  =  tmp2 
davg  =  tmp3/npts 

C  Print  max  values 

if  (pmax.eq. 0 . 0)  then 

pdiff  =  100* (dmax-pmax) 
else 

pdi f  f  =  1 0  0  * { dmax-pmax ) /pmax 


> 


10 
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endif 


write (6,8)  pmax,xt (locmax) ,yt (locmax) , zt (locmax) 
write (6, 9)  dmax, xa (max) ,ya{max) ,za(max) 
write (6, 13)  dmax-pmax, pdif f 

write (7, 8)  pmax, xt (locmax) ,yt (locmax) ,zt (locmax) 
write (7 , 9)  dmax, xa (max) , ya (max) , za (max) 
write (7,13)  dmax-pmax,pdif f 

C  Print  min  values 

if  (pmin.eq. 0 , 0)  then 

pdiff  =  100* (dmin-pmin) 
else 

pdiff  =  100* (dmin-pmin) /pmin 
endif 

write (6, 11)  pmin, xt ( locmin) ,yt (locmin) ,zt (locrain) 
write (6,12)  dmin,xa (min) ,ya (min) , za (min) 
write (6,13)  dmin-pmin, pdiff 

write (7 , 11)  pmin, xt ( locmin) ,yt (locmin) , zt (locmin) 
write (7,12)  dmin, xa (min) ,ya (min) , za (min) 
write (7,13)  dmin-pmin, pdiff 

8  forma t {  ’  The  true  maximum  is  ‘,gl0.4, 

1  ’  at  (x,y,z)  : ’ , 3 (glO.4, ‘ , ' ) ) 

9  forma t  {  '  The  interpolated  maximum  is  ’,gl0.4, 

1  ’  at  (x,y,z)  : ' , 3 (glO.4, ’ , ’ ) ) 

11  format (  ’  The  true  minimum  is  ',gl0.4, 

1  •  at  (x,y,z)  : ' ,3 (glO.4, ’ , ” ) ) 

12  formate  ’  The  interpolated  minimum  is  ',gl0.4, 

1  ’  at  (x,y,z)  : ' , 3 (glO . 4, ’ , ’ ) ) 

13  formate  '  The  difference  is  ’ , gl3 . 5 , ' ( ’ , g9 . 3 , ’ % ) ' ) 
return 

end 

subroutine  ips emode, ierr) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  This  subroutine  solves  the  infinite  plate  spline  equations 
c  for  a  three-dimensional  surface 

c  The  equations  in  this  code  were  extracted  from  a  code  developed 
c  by  Ram  Shan  at  GTRI  in  1993  named  MPROC3D.  This  code  was  a 

c  3-D  extension  of  a  NASA-Langley  code  called  MPROC,  provided 

c  by  Beth  Rausch  in  the  Unsteady  Aerodynamics  Branch, 

c 
c 

c  The  code  assumes  that  each  mode  is  called  independently  for 
c  each  direction  (up  to  3  directions) . 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

implicit  double  precision  (a-h,o-z) 
include  ’csdcfd.par' 
c 

dimension  singular ( 3 ) , nd ( 3 } , emax ( 3 ) 

common  /str/  xt (dnstr ) ,yt (dnstr ) , zt (dnstr ) , f t {dnstr+3 ) , nspts 
common  /aero/  xa (dnaro) ,ya{dnaro) , za (dnaro) , fa (dnaro) ,npts 
common  /surf/  xb(dnstr) ,yb(dnstr) 
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common  /work/  array {dnstr+3 , dnstr+3 ) , v (dnstr+3 , dnstr+3 ) , 
1  w(dnstr+3),  dum(dnstr+3) 

c 

data  eps/l.e-28/ 

data  singular/ 0 . , 0 . , 0  .  / 

do  1=1, dnstr+3 
w(l)=0.0 
xb{l)=0.0 
yb(l)=0.0 
diirnd)  =0 . 0 
do  11=1, dnstr+3 
array (1, 11) =0 . 0 
v{l,ll)=0.0 
enddo 
enddo 


c 

singular (1) 

=  5.0e-4 

c 

singular (2 ) 

=  5.0e-4 

c 

singular (3 ) 

=  l.Oe-4 

c 

singular (1) 

=  l.Oe-3 

c 

singular (2 ) 

=  l.Oe-3 

c 

singular ( 3 ) 

=  5.0e-4 

Q  - 

c  check  to  see  if  surface  is  planar 

c  - 

c 

call  plane {ipdir, itmp) 

if (ipdir . It . 1 . or . ipdir .gt . 3 )  then 

write (6,*)  '  Error  in  plane  subroutine  ' 

write (6,*)  '  Plane  returned  is  ', ipdir 

stop 
endif 

c  - 

c  ipdir  =  1  x-y  plane  splinal  matrix  data 

c  ipdir  =  2  x-z  plane  splinal  matrix  data 

c  ipdir  =  3  y-z  plane  splinal  matrix  data 

c  - 

if  (itmp.eq.l)  then 
if  ( ipdir. eq.l)  then 

c  ipdir=l  is  the  x-y  plane,  data  to  update  is  z  {i2=3) 

i2s  =  3 
i2e  =  3 
endif 

if  (ipdir. eq. 2)  then 

c  ipdir=2  is  the  x-z  plane,  data  to  update  is  y  (i2=2) 

i2s  =  2 
i2e  =  2 
endif 

if  (ipdir. eq. 3)  then 
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c 


ipdir=3  is  the  y-z  plane ^  data  to  update  is  x  (i2=l) 
i2s  =  1 
i2e  =  1 
endif 
else 
i2s  =  1 
i2e  =  3 
endif 


rbul  =  0,0 
rbu2  =  0.0 
rbu3  =0.0 
rbvl  =0.0 
rbv2  =0.0 
rbv3  =0.0 

do  5  i2=i2s,i2e 
c 

c  store  appropriate  values  in  x  &  y  arrays  in  order  to  use 
c  existing  subroutines 
c 

if  (i2  .eq.  1)  then 

write (6,*)  'Processing  x-y  coordinate  data’ 

call  fdinert {xt,yt,nspts, thz,rbu3,  rbv3 , xcg,ycg) 
do  ii=l,nspts  !  use  x  &  y  coordinates 

xb(ii)  =  {xt(ii)  “  xcg)/rbu3  !  shift  coords  to  eg 

yb(ii)  =  {yt(ii)  -  yeg) /rbv3 
c 

c  Experienced  division  by  zero  read:  beta=atan2 (yb (ii) ,xb(ii) 
c 

beta  =  atan2 {yb(ii) ,  xb{ii)+eps) 

rad  =  sqrt (xb ( ii ) **2  +  yb(ii)**2)  !  rotate  to  principle  axes 

xb(ii)  =  rad'^cos  (beta-thz) 
yb(ii)  =  rad*sin{beta-thz) 
enddo 
endif 

if  (i2  .eq.  2)  then 

write (6,*)  'Processing  x-z  coordinate  data' 
call  fdinert (xt, zt , nspts , thy, rbu2 , rbv2 , xcg, zcg) 
do  29  ii=l,nspts  1  use  x  &  z  coordinates 

xb(ii)  =  {xt(ii)  -  xcg)/rbu2  !  shift  coords  to  eg 

yb(ii)  =  {zt(ii)  -  zcg) /rbv2 
c 

c  Incase  of  Division  by  zero  beta  was  beta=atan2 (yb (ii) ,xb (ii) ) 
c 

beta  =  atan2 (yb(ii)  ,  xb(ii)+eps) 

rad  =  sqrt  (xb  ( ii )  "^*2  +  yb(ii)**2)  !  rotate  to  principle  axes 

xb{ii)  =  rad*cos (beta- thy) 
yb{ii)  =  rad*sin (beta-thy) 

29  continue 

endif 

if  {i2  .eq.  3)  then 

write (6,*)  'Processing  y-z  coordinate  data' 
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call  fdinert (yt, zt.nspts, thx, rbul, rbvl/ycg, zcg) 
do  30  ii=l,nspts  !  use  y  &  z  coordinates 

xb(ii)  =  (yt(ii)  -  ycg) /rbul  I  shift  coords  to  eg 

yb(ii)  =  (zt{ii)  -  zcg)/rbvl 
c 

c  Division  by  zero  beta  was  :  beta=atan2 (yb(ii) ,xb(ii) ) 
c 

beta  =  atan2 {yb(ii) ,  xb(ii)+eps) 

rad  =  sqrt (xb(ii) **2  +  yb(ii)**2)  !  rotate  to  principle  axes 

xb(ii)  =  rad*cos (beta-thx) 
yb(ii)  =  rad*sin (beta-thx) 

30  continue 

end  if 
c 

c  fill  solution  matrix  array 

c 

do  2  i=l,nspts 
do  1  j=l,i 

r2  =  (xb(i) -xb{ j ) ) **2+ (yb(i) -yb( j ) ) **2 
g=  r2  *  dlog(r2+eps) 
array ( i o )  =  g 
array ( j , i )  =  g 

1  continue 

2  continue 

do  3  j=l,nspts 
array (nspts+l, j )  =  1.0 
array (j , nspts+1)  =  1.0 

3  continue 

array (nspts+l, nspts+l)  =  0.0 

do  4  j=l,nspts 
array (nspts+2 , j )  =  xb(j) 
array (j ,nspts+2)  =  xb(j) 

4  continue 

array (nspts+2 ,  nspts+l)  =  0.0 
array (nspts+l,  nspts+2)  =  0.0 
array (nspts+2 ,  nspts+2)  =  0.0 

do  6  j=l,nspts 
array (nspts+3 , j )  =  yb(j) 
array( j ,nspts+3)  =  yb(j) 

6  continue 

array (nspts+3 ,  nspts+l)  =0.0 
array (nspts+l,  nspts+3)  =0.0 
array (nspts+3 ,  nspts+2)  =  0.0 
array (nspts+2 ,  nspts+3)  =  0.0 
array (nspts+3 ,  nspts+3)  =  0.0 

nl=nspts+3 
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c 

c  - 

c  call  routine  to  decompose  main  matrix. 

c  - 

call  svdcmp(nl) 
c 

c  scale  structural  coordinates  &  cfd  grid  coordinates 
c  rotate  coordinates  to  principle  axes 

c  Select  appropriate  normal  coordinate  for  interpolation 
c 

if  {i2.eq.l)  then 

write (6,*)  ‘Calculating  xy-plane  deflections’ 
do  m=l,npts 

xa(m)  =  (xa(m)  -  xcg) /rbu3 
ya(m)  =  (ya{m)  -  ycg) /rbv3 
rad  =  sgrt (xa (m) **2  +  ya(m)**2) 
beta  =  atan2 (ya (m) ,xa(m) +eps) 

xa(m)  =  rad*cos (beta-thz) 
ya(m)  =  rad*sin (beta-thz ) 
enddo 

elseif  (i2.eq.3)  then 

write (6,*)  ‘Calculating  yz-plane  deflections' 
do  m=l,npts 

ya(m)  =  (ya (m)  -  ycg) /rbul 
za(m)  =  (za(m)  ~  zcg) /rbvl 
beta  =  atan2 (za (m) ,ya (m) +eps) 
rad  =  sqrt (ya (m) **2  +  za{m)**2) 
ya(m)  =  radices (beta-thx) 
za(m)  =  rad*sin(beta-thx) 
enddo 

else  if  (i2.eq.2)  then 

write (6,*)  'Calculating  xz-plane  deflections' 
do  m=l,npts 

xa(m)  =  (xa(m)  -  xcg) /rbu2 
za(m)  =  {za(m)  -  zcg) /rbv2 
beta  =  atan2(za{m),  xa(m)+eps) 
rad  =  sqrt (xa(m) **2  +  za(m)**2) 
xa{m)  =  rad*cos (beta-thy) 
za(m)  =  rad*sin(beta-thy) 
enddo 
else 

write(6,*)  '  Code  error  no  plane  identified  ' , i2 

endif 

c 

ft{nspts+l)  =  0. 
ft{nspts+2)  =  0. 
ft(nspts+3)  =  0. 
c 

c  Ask  if  user  wants  to  change  the  threshold 
c 

irest=0 

call  chthres (nspts , irest , ipdir , singular { ipdir) ,nd{ipdir) , 
1  emax ( ipdir ) ) 

nn=nspts+3 
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nnn=dnstr+3 

call  slvdriver (nn,nnn,nd(ipdir) , singular { ipdir) , 
emax ( ipdir ) ) 


compute  deflections  at  collocation  points 


if{i2.eq.l)  then 

update  z  deflections 
do  m=l,npts 

fa  (m)  =zfun(xa  (m)  ,ya  (m)  ,  eps) 
enddo 

else  if  (i2.eq.2)  then 

update  y  deflections 
do  m=l,npts 

fa (m) =zfun(xa (m) , za (m) , eps) 
enddo 

else  if  (i2.eq.3)  then 

update  X  deflections 
do  m=l,npts 

fa(m)=  zfun (ya (m) , za (m) , eps ) 
enddo 
endif 
continue 

return 

end 

FFFFFFFFFFFFFFFFFFFF 
function  zfun (xx, yy , eps ) 

FFFFFFFFFFFFFFFFFFFF 
implicit  double  precision  (a-h^o-z) 
include  'csdcfd.par' 

common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr ) , zeta {dnstr+3 ) , nspts 
common  /surf/  xi (dnstr ) , eta (dnstr ) 


spline  evaluation  function  for  a  symmetric  surface  spline 


bl=zeta (nspts+1 ) 
b2=zeta (nspts+2 ) 
b3=zeta {nspts+3 ) 
zfun  =  bl+b2*xx+b3*yy 

do  1  i=l,nspts 

dx2  =  {xx-xi (i) ) **2 
dy2  =  (yy-eta { i ) ) * *2 
rl  =  dx2  +  dy2 

zfun  =  zfun  +  zeta (i) *rl*dlog (rl+eps) 
continue 


return 

end 


c 


subroutine  slvdriver  (n3  ,xtip,nd,  singular ,  emax) 
implicit  double  precision  (a-h,o-z) 
include  ’ csdcf d . par ’ 

common  /str/  xt (dnstr ) , yt (dnstr ) , zt (dnstr ) , b (dnstr+3 ) , nspts 
common  /work/  u  (dnstr4-3  ,  dnstr-i-3  )  ,  v(dnstr+3  ,  dnstr+3  )  , 

1  w(dnstr+3),  x{dnstr+3) 
c 

common  /file/  iunit 
c 
c 

c  Edit  diagonal 

nd  =  0.0 
wmax  =  0.0 
do  i=l,  n3 

wmax  =  max  (wmax ,  w  ( i )  ) 
enddo 

emax  =  wmax 
wmin=wmax* singular 
do  i=l,  n3 

if  (w(i)  .It.  wmin)  then 
w{i)  =  0.0 
nd  =  nd  +  1 
endif 
enddo 
c 

c  Call  Solver 
c 

call  svbksb{n3,  n3  ) 
c 

c  Copy  solution  matrix  into  b  vector 
c 

do  i  =  1,  n3 
b{i)  =  x{i) 
enddo 

return 

end 

- - 

subroutine  svbksb(m,n) 

implicit  double  precision  (a-h,o-z) 

include  ' csdcf d. par ' 

common  /str/  xt (dnstr ) ,yt (dnstr) , zt {dnstr ) , b {dnstr+3 ) , nspts 
common  /work/  u (dnstr+3 , dnstr+3 ) , v (dnstr+3 , dnstr+3 ) , 

1  w(dnstr+3),  x(dnstr+3) 
dimension  tmp(dnstr+3) 

- - 

C  This  subroutine  solves  Ax  =  b  where  A  =  U,  W,  V  as  returned 
C  from  svdcmp 

C  m,n  =  logical  dimensions  of  A 
C  b  =  RHS  vector 
C  X  =  output  solution  vector 

- - 
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if  (n.ne.m)  n=m 
do  j=l,n 
s=0.0 

if  {w(j).ne.O.O)  then 
do  i=l^m 

s=s+u{i, j ) *b{i) 
enddo 
s=s/w(  j ) 
endif 

tmp ( j )  =  s 
enddo 
do  j=l,n 
s=0.0 
do  jj=l,n 

s=s+v( j , j j ) *tmp( j j ) 
enddo 
x(  j  )  =  s 
enddo 
return 
end 

c - 

subroutine  fdinert (xf ,yf ,n,  th,  rbu,  rbv,  xcg,  ycg) 
implicit  double  precision  (a-h,o-z) 
include  'csdcfd.par' 
c  dimension  xf(n),  yf(n) 

dimension  xf (dnstr) ,  yf (dnstr) 

c - 

c  This  subroutine  finds  the  moments  of  inertia  for  given  coordinate  info 
c  The  moments  of  inertia  is  used  to  find  the  principle  axes  direction 
c  It  assiimes  that  each  coordinate  represents  a  particle  of  mass  =  1 
c  xf,  yf  “  coordinate  info 

c  th  -  principle  axes  direction  angle  (rad) 
c  rbu  -  radius  of  gyration  in  u-direction 
c  rbv  -  radius  of  gyration  in  v-direction 

Q - 

c 

xi  =  0,0 
yi  =  0.0 
xyi  =  0.0 
qx  =  0.0 
qy  -  0 . 0 
c 

c  Calculate  1st  &  2nd  moments  of  inertia 
c 

do  ii=  1,  n 

xi  =  xi  +  yf ( ii ) *yf (ii ) 
yi  =  yi  +  xf (ii) *xf (ii) 
xyi  =  xyi  +  xf ( ii ) *yf ( ii ) 
qx  =  qx  +  yf  (ii) 
qy  =  qy  +  xf (ii) 
enddo 
c 

c  Calculate  eg  locations 
c 
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=  qy  /  n 
ycg  =  qx  /  n 
c 

c  Calculate  direction  of  principle  axes  &  principle  moments 
c 

tmp  =  xi  -  yi 
if  (tmp. It. 0.0)  then 

th  =  . 5*atan2 ( ”1 . 0*xyi ,  .5* tmp) 
thl  =  . 5*atan2 (xyi,  -.5*tmp) 
else 

th  =  . 5*atan2 (“1 . 0*xyi,  .5*tmp) 
thl  =  . 5*atan2 (xyi ,  -.5*tmp) 
endif 

ui  =  xi* (cos (th) ) **2  -2 . 0*xyi*sin ( th) *cos ( th)  +  yi* ( sin ( th) ) **2 
vi  =  xi* (cos(thl) ) **2  -2 . 0*xyi*sin(thl) *cos (thl) +yi* (sin(thl) ) **2 
c 

c  Calculate  radii  of  gyration 
c 

rbu  =  sqrt(ui/n) 
rbv  =  sqrt(vi/n) 

return 

end 


subroutine  svdcmp (m) 

implicit  double  precision  (a^h.o-z) 

include  ’ csdcf d . par ' 

common  /work/  a (dnstr+3 , dnstr+3 ) , v {dnstr+3 , dnstr+3 ) , 
1  w(dnstr+3)  ,  dum(dnstr+3) 
dimension  rvl(dnstr+3) 


*  This  subroutine  performs  a  Singular  Value  Decomposition  (SVD) 

*  a  =  u  *  w  *  (v) -transpose 

*  It  is  obtained  from 

*  "Numerical  Recipes",  By  Press  &  Flannery  et  al . , 

*  Cambridge  University  Press,  1989,  pgs .  57-  64 

*  a  =  matrix  logical  dimensions  m  by  n 

*  physical  dimensions  mp  by  np 

*  u  =  stored  in  a  on  output 

*  w  =  diagonal  matrix  of  singular  values 

*  V  =  NOT  stored  as  transpose  on  output 

*  if  n  >  m,  fill  A  to  make  square  with  zero  rows 


n=m 

c 

c 

if  (m.lr.n)  then 

write (6,*)  ' Error : Inside  SVDCMP  routine' 

write (6,*)  'Augment  A  matrix  with  zero  rows’ 
stop 
endif 

★ 
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*  Householder  reduction  to  bidiagonal  form 

* 


g  =  0.0 
scale  =  0.0 
anorm  =  0.0 
do  25  i=l,n 
l=i+l 

rvl (i) =scale*g 

g=0.0 

s=0 . 0 

scale  =  0.0 
if  (i.le.m)  then 
do  k=i,m 

scale=scale+abs (a (k, i) ) 
enddo 

if  (scale .ne. 0 . 0)  then 
do  k=i,m 

a(k,i)  =  a{k,i)/scale 
s=s+a (k, i ) *a (k, i ) 
enddo 
f=a{i,i) 

g=-“Sign(sqrt  (s)  ,  f ) 
h=f *g-s 
a(i,i)=f-g 
if  ( i . ne . n )  then 
do  j=l,n 
s=0.0 
do  k=i,m 

s=s+a (k, i) *a  (k,  j  ) 
enddo 

f=s/h 
do  k=i,m 

a(k,j)  =  a{k, j)+f*a(k,i) 
enddo 
enddo 
endif 
do  k=i,m 

a(k,i)  =  scale*a(k,i) 
enddo 
endif 
endif 

w(i)  =  scale  *  g 

g=0.0 

s=0.0 

scale=0 . 0 

if ( (i.le.m) .and. (i.ne.n) )  then 
do  k=l,m 

scale=scale+abs (a(i,k) ) 
enddo 

if  ( scale. ne. 0 . 0)  then 
do  k=l,n 

a(i,k)  =  a(i,k) /scale 
s=s+a(i,k) *a(i,k) 
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enddo 
f=a(i, 1) 

g=-sign(sqrt (s)  ,  f ) 
h=f *g-s 

a(i,l)  =  f  -  g 
do  k=l,n 

rvl (k)  =  a ( i , k) /h 
enddo 

if(i.ne.m)  then 
do 

s=0,0 
do  k=l,n 

s=s+a( j ,k) *a(i,k) 
enddo 
do  k=l,n 

a(j,k)  =  a  ( j  ,  k) -fs^rvl  (k) 
enddo 
enddo 
endif 
do  k=l,n 

a(i,k)  =  scale*a(i/K) 
enddo 
endif 
endif 

anorxn=inax(anorm,  (abs  {w(i)  )  +abs  (rvl  (i)  )  )  ) 

25  continue 
* 

*  Accumulation  of  right  hand  side  transformations 

★ 

do  32  i=n,l,-l 

if  (i.lt.n)  then 

if  (g.ne.0.0)  then 
do  j=l,n 

v(j,i)  =  (a{i, j)/a(i,l)  ) /g 
enddo 
do  j=l,n 
s=0.0 
do  k=l,n 

s=s+a ( i , k) *v (k, j ) 
enddo 
do  k=l,n 

v(k,j)=v(k,j) +s*v(k, i) 
enddo 
enddo 
endif 
do  j=l,n 

v(i,j)  =  0.0 
v(j,i)  =  0.0 
enddo 
endif 

v(i,i)  =  1„0 
g  =  rvl(i) 

1  =  i 
32  continue 
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*  Acciomulation  of  Left  Hand  Side  transformations 

* 

do  39  i^n,!,"! 

l=i-rl 

g=w  ( i ) 

if  (i,lt.n)  then 
do  j  =  l,n 
a(io)=0.0 
enddo 
endif 

if  (g.ne.O.O)  then 
g  =  1.0/g 
if  (i.ne.n)  then 
do  j=:l,n 
s=0.0 
do  k=l,m 

s=s+a {k, i ) *a {k, j ) 
enddo 

f= (s/a{i, i) ) *g 
do  k=i,m 

a(k, j )=a{k, j)+f*a(k, i) 
enddo 
enddo 
endif 
do  j=i,m 

a{  j , i) =a( j , i) *g 
enddo 
else 

do  j=i,m 

a(j,i)  =0.0 
enddo 
endif 

a(i,i)  =  a(i,i)  +  1.0 
39  continue 
* 

*  Diagonalization  of  bidiagonal  form 

* 

do  49  k=n,l,-l  !  singular  values  loop 

do  48  its=l,30  !  iteration  loop 


do  l=k,l,“l  !  test  for  splitting 

nm=l-l  1  rvl(l)  always  zero 

if  ( (abs (rvl (1) ) +anorm) .eq.anorm)  goto  2 
if  ( (abs {w(nm) ) +anorm) . eq. anorm)  goto  1 
enddo 

1  c=0.0  !  cancellation  of  rvl(l),  if  1>1 

s=1.0 
do  i=l,k 

f  =  s*rvl(i) 
rvl (i)  =  c*rvl (i ) 

if  { (abs (f) +anorm) .eq.anorm)  goto  2 
g  =  w(i) 

h  =  sqrt ( f *f+g*g) 
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w(i )  =  h 
h  =  1.0/h 
c  =  {g*h) 
s  =  -(f*h) 
do  j=l,m 

y=a  ( j  ,nin) 
z=a( j , i) 

a{j,nm)  =  (y*c)  +  (2*s) 
a(j,i)  =  -(y*s)  +  (z*c> 
enddo 
enddo 

2  z  =  w{k) 

if  (l.eq.k)  then  1  Convergence 

if  (z. It. 0.0)  then  !  singular  value  made  >  0 

w(k)  =  -z 
do  j=l,n 

v{j,k)  =  “V(j,k) 
enddo 
endif 
goto  3 
endif 

if  (its.eq.30)  then 

write (6,*)  'Error:  In  SVDCMP  routine' 
write (6,*)  'No  convergence  in  30  iterations' 
write (6,*)  'Matrix  cannot  be  inverted!' 
stop 
endif 
X  =  w{l) 
nm  =  k-1 
y  =  w(nm) 
g  =  rvl(nm) 
h  =  rvl(k) 

f  =  { (y-z) * (y+z)+(g-h) * (g+h) ) / (2 .0*h*y) 
g  =  sqrt(f*f  +  1.0) 

f  =  ((x-z)*(x+z)+h*((y/(f+sign(g,f)))-h))/x 

c  Next  QR  transformation 

c  =  1.0 
s  =  1 . 0 
do  j=l,nm 
i=j+l 
g=rvl{i) 
y=w  ( i ) 
h=s*g 
g=c*g 

z=sqrt {f*f+h*h) 
rvl ( j )  =  z 
c  =  f/z 
s  =  h/z 

f  =  {x^c)+(g*s) 
g  =  -(x*s)  +  (g*c) 
h  =  y*s 
y  =  y*c 
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do  jj=l,n 

X  =  v(jj,j) 
z  =  V  ( j  j  ,  i ) 

=  (x*c)+(z*s) 
v(jj,i)  =  -(x*s)+(z*c) 
enddo 

z  =  sqrt(f*f  +  h*h) 
w{  j  )  =  z 

if  ( z . ne . 0 . 0 )  then 
z  =  1 . 0/z 
c  =  f  *z 
s  =  h*z 
endif 

f  =  (c*g)  +  (s*y) 

X  =  -{s*g)  +  (c*y) 
do  jj  =  1,  m 
y  =  a{jj,j) 
z  =  a(jj,i) 

a(jj,j)  =  (y*c)  +  (z*s) 
a(jj,i)  =  -(y*s)  +  (z*c) 
enddo 
enddo 

rvl(l)  =0.0 
rvl(k)  =  f 

w(k)  =  X 

48  continue 

3  continue 

49  continue 
return 
end 

C - 

subroutine  chthres (nspts, irest , idir, singular, nd, emax) 
implicit  double  precision  (a~h,o~z) 
character*5  plane (3) 
real  tmp 

plane (1)  =  '  y-z  ' 

plane (2)  =  '  x-z  ' 

plane (3)  =  '  x-y  ' 

write (6,*)  'Do  you  want  to  change  the  threshold? (y/n) ' 

write (6, 103) 

if  ( (ans .eq. 'y ' ) . or. (ans .eq. ' Y' ) )  then 
write (6, *) 

write (6,*)  ' - ’ 

write (6,*)  'CHANGING  THRESHOLDS' 

write  (6,"^)  ’ - ' 

write(6,100)  'plane',  ' threshold values  deleted',  'max  eigen’ 

write(6,100)  ' - ',  ' - - ' - ' 

write(6,101)  plane{idir),  singular,  nd,  nspts,  emax 
write ( 6 , * ) 
irest  =  1 
10  continue 

write(6,104)  'Enter  threshold:' 
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write (6, 103) 
read ( 5 , * )  tmp 
write ( 6 , * ) 

write(6,*)  'You  have  entered:' 
write  (6,105)  ’ Threshold: tmp 

write (6,*)  ’Is  that  correct (y/n) ? ' 
read(5 , ' (a) ' )  ans 

if  ( (ans. eg. ’y' ) .or. (ans. eg. ’ Y’ ) )  then 
singular  =  tmp 
goto  99 
else 
goto  10 
endif 
endif 
c 

c  format  statements 

c 

100  format  (lx,  a5,  3x,  a9,  3x,  al4,  3x,  a9) 

101  format  (lx,  a5,  3x,  eS.l,  3x,  ' ( ' , i3 , ' / ' , i3 , ' ) ' ,  3x,  f9.3) 

103  format  (' - >\$) 

104  format (a, lx, i) 

105  format (a, lx, i, e8 . 1) 
c 

99  continue 

ans= ’n' 
return 
end 
c 

Q 

c  SUBROUTINE  MQ 

c 

c  Multiguadric -Biharmonic  Method 

c 

c  Created:  SEP06,95 

c  Last  Modified: 


c 

subroutine  mg(naux,fo) 


c 


c 


c 


implicit  none 

integer  mgpt,NWK 

integer  imxs , jmxs , kmxs , nmxs 

integer  imxa, jmxa, kmxa, nmxa 

include  'csdcfd.par' 
include  ' mg . par ' 

integer  naux 

double  precision  f i (dnstr , 3 ) , f o (dnaro, 3 ) 
double  precision  rmin,rmax 
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c 

integer  npi , npo 

double  precision  xi,yi,zi,ft 

double  precision  xo (dnaro) ,yo (dnaro) , zo (dnaro) , fa (dnaro) 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  str  coinnion  contains  the  structural  surface  data 

c 

c  nspts  =  total  number  of  points  on  the  surface 
c  xi(dnstr)  =  Cartesian  X  location  of  data  points 

c  yi(dnstr)  =  Cartesian  Y  location  of  data  points 

c  zi(dnstr)  =  Cartesian  Z  location  of  data  points 

c  ft(dnstr)  =  Local  data  to  be  interfaced 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
common  /str/  xi (dnstr) ,yi (dnstr) , zi (dnstr) , f t (dnstr+3 ) , npi 
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

c  aero  common  contains  the  aerodynamic  (CFD)  surface  data 
c 

c  npts  =  total  number  of  points  on  the  surface 
c  xo(dnaro)  =  Cartesian  X  location  of  data  points 

c  yo(dnaro)  =  Cartesian  Y  location  of  data  points 

c  zo(dnaro)  =  Cartesian  Z  location  of  data  points 

c  fa{dnaro)  =  Local  data  to  be  interfaced 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
common  /aero/  xo,yo, zo, fa,npo 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  struct  common  contains  the  structural  mode  data 
c 

c  sxs (imxs, jmxs,kmxs)  =  Cartesian  X  location  of  data  points 

c  sys (imxs, jmxs^kmxs)  =  Cartesian  Y  location  of  data  points 

c  szs (imxs, jmxs^kmxs)  =  Cartesian  Z  location  of  data  points 

c  isg  =  total  number  of  points  along  the  x-direction 

c  jsg  =  total  number  of  points  along  the  y-direction 

c  ksg  =  total  number  of  points  along  the  z-direction 

c  is  =  points  along  the  x-direction 

c  js  =  points  along  the  y-direction 

c  ks  =  points  along  the  z-direction 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
integer  is , j  s , ks, isg, jsg, ksg 

double  precision  sxs ( imxs, jmxs , kmxs) , sys (imxs, jmxs, kmxs) 
double  precision  szs (imxs, jmxs, kmxs) 
c 

common  /struct /sxs 
Sc ,  sys ,  szs 

S:,is,js,ks,isg,j sg,  ksg 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
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c . . . .  Local  variables 
c 

integer  i,j,k,m 

integer  ni , no 

integer  ninterv 

integer  idiv, jdiv, kdiv 

integer  nscale 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c....  Dynamic  Memory  (real  and  integer  in  two  separated  spaces) 
c 

integer  nrl , nr2 , nr3 , nr4 , nr5 , nr 6 , nr7 , nr 8 

integer  nr9 , nrlO , nrll , nrl2 , nrl3 , nrl4 , nrl5 

integer  nil , ni2 , ni3 , ni4 

integer  next i , next r,nmaxiv,  nmaxrv 

integer  ivect (nnmaxi ) 

double  precision  rvect (nnmaxr ) 
c 

common/point/  next i , next r,nmaxiv,  nmaxrv 

common/memoi/  ivect 

common/ memo  r/  rvect 

c 

nmaxiv=  nnmaxi 
nmaxrv=  nnmaxr 
c 

open (unit=27 , f ile= ' rpar ' ) 
read (27,*)  rmin , rmax 
read (27,*)  nscale 
close (27) 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c....  Basic  parameters  calculation 
c 

c .  Total  number  of  input  (structural)  points - >  (npi) 

c 

c .  Total  naamber  of  output  (aerodynamic)  points - >  (npo) 

c 

c . Maximum  number  of  points  within  a  sub-region 

c 

ni  =  npi 
no  =  npo 
c 

c....  Estimate  the  nximber  of  subdivisions  necessary  in  each  direction 
c 

idiv  =  isg/imax  +  1 
jdiv  =  jsg/jmax  +  1 
kdiv  =  ksg/kmax  +  1 
c 

c,.,.  and  the  total  number  of  sub-regions 
c 

ninterv  =  idiv* jdiv*kdiv 
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c 

c. - . .  Memory  allocation 
c 

c . „ „ , , .  Real  part 
c 


c 

nrl 

.  xsi (ni , ninterv) 

c 

nr2 

.  ys i ( ni , ninterv ) 

c 

nr3 

.  zsi (ni , ninterv) 

c 

nr4 

.  f si (ni , 3 , ninterv) 

c 

nr  5 

.  xso (no, ninterv) 

c 

nr6 

.  yso (no, ninterv, ) 

c 

nr7 

.  zso (no, ninterv, ) 

c 

nr8 

.  f so (no, 3 , ninterv) 

c 

c 

nr9 

.  . 

.  xi2(npi) 

c 

nrlO 

.  . 

.  yi2(npi) 

c 

nrll 

.  . 

.  zi2 (npi) 

c 

nrl2 

.  . 

.  xo2(npo) 

c 

nrl  3 

.  . 

.  yo2(npo) 

c 

nrl  4 

.  zo2 (npo) 

c 

nrl 

=z 

-1 

X 

nr2 

= 

nrl  +  ni*ninterv 

nr3 

= 

nr2  +  ni*ninterv 

nr4 

= 

nr 3  +  ni*ninterv 

nr5 

= 

nr 4  +  3*ni*ninterv 

nr6 

= 

nr5  +  no*ninterv 

nr7 

= 

nr6  +  no*ninterv 

nr8 

= 

nrl  +  no*ninterv 

nextr 

= 

nr8  +  3*no*ninterv 

c 

nr9 

= 

nextr 

nrlO 

= 

nr9  +  npi 

nrll 

= 

nrlO  +  npi 

nrl  2 

= 

nrll  +  npi 

nrl  3 

= 

nrl 2  +  npo 

nrl  4 

= 

nrl 3  +  npo 

nrl  5 

nr 14  +  npo 

c 

c .  Integer  part 


c .  Integer  part 

c  nil  ...  conecti(npi) 

c  ni2  ...  conecto {npo, 17) 

c  ni3  ...  npis (ninterv) 

c  ni4  ...  npos (ninterv) 


c 

nil  =  1 

ni2  =  nil  +  npi 

ni3  =  ni2  +  17*npo 

ni4  =  ni3  +  ninterv 

nexti  =  ni4  ninterv 

c 

write (*,*)  'Last  allocated  integer  nexti 
c 
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write (*,*) '**************************★★***★★**★★*★★*****★★' 
write (*,*) 'PARAMETERS  FOR  THIS  PROBLEM' 
write {*  f  *} 


write {* . * 

)  'npi 

npo 

11 

, npi, npo 

write ( * . * 

)  'ni 

no 

9 

, ni , no 

write ( * . * 

) ' dnstr 

dnaro 

9 

, dnstr , dnaro 

write  ,  * 

)  '  idiv 

jdiv 

9 

, idiv, jdiv 

write (* . * 

)  'isg 

jsg 

ksg  ‘ 

,isg, jsg.ksg 

write ( * , * 

)  '  is 

js 

ks  ' 

,is  ,js  ,ks 

write (* . * 

)  '  imax 

jmax 

kmax ' 

,  imax,  jmax,  kmax 

write (* . * 

)  '  idiv 

jdiv 

kdiv' 

, idiv, jdiv, kdiv 

write (* . * 

)  'nexti 

nextr 

I 

, nexti, nextr 

write ( * . * 

)  'nnmaxi 

nnmaxr  ' 

,  nnmaxi ,  nnmaxr 

write {* ,* 

) 'ninterv 

1 

, ninterv 

write  ( *  , 

) 

write  (*,*)  '**************^*******************i«r************» 
write ( * , * ) 

i f ( nmaxrv .It. nr 1 5 . or . nmaxi v .It. nex t i )  then 
write (*,*)  'NOT  ENOUGH  MEMORY  FOR  THIS  CASE' 
write (*,*)  'Last  allocated  integer  position  =',nexti 
write(*,*)  'Maximnm  allocated  integer  position  =',ninaxiv 
write (*,*)  'Last  allocated  real  position  =',nrl5 
write(*,*)  'Maximum  allocated  real  position  =', nmaxrv 
if (nmaxrv . It . nrl5  )  STOP  'More  real  memory  is  necessary’ 
if (nmaxiv . It . nexti )  STOP  'More  integer  memory  is  necessary' 
end  if 

Put  the  input  modes  in  a  working  format 
m=0 

do  k=l,ksg 
do  j=l,jsg 
do  i=l,isg 
m=m+l 

fi(m,l)  =  sxs(i,j,k) 
fi(m,2)  =  sys(i,j,k) 
fi{m,3)  =  S2s(io,k) 
enddo 
enddo 
enddo 

Transfer  the  working  space  and  constants  to  the  MQ  solver 

call  mql  ( dnaro , dnstr , npi , npo , ni , no , ninterv, idiv, j div, kdiv, 

1  rmin, rmax, naux, nscale, 

2  ivect(nil) ,ivect{ni2) ,ivect(ni3) ,ivect(ni4) , 

3  xi,yi, zi, fi,xo,yo, zo, fo, 

4  rvect {nr9 ) ,  rvect (nrlO ) , rvect (nrll ) , 

5  rvect {nrl2) , rvect (nrl3) , rvect {nrl4) , 

6  rvect (nrl) , rvect (nr2) .rvect (nr3) , rvect (nr4) .rvect (nr5) . 

7  rvect (nr6 ) , rvect (nr7 ) . rvect (nrS )  ) 


END  OF  SUBROUTINE 


c 

write  *)  "END' 
write ( * , * ) 
c 

return 

end 

c 

Q*********************************************************************** 

c 

c  SUBROUTINE  MQl 

c 

c  Multiquadric-Biharmonic  Method  -  Solution  Routine 
c 

c  Created:  SEP07,95 

c  Last  Modified: 

c 

Q*********************************************************************** 

c 

subroutine  mql  (dnaro,dnstr,npi,npo,ni,no,ninterv, idiv, jdiv,kdiv, 

1  rmin, rmax, naux, nscale, 

2  conecti, conecto,npis,npos, 

3  xiO,yiO,ziO, f i , xoO ,yo0 , zoO , fo, 

4  xi,yi, zi,xo,yo, zo, 

5  xsi^ysi, zsi, fsi,xso,yso, zso, fso) 
c 

implicit  none 
c 

integer 
integer 
integer 
integer 
integer 

double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
c 

c....  Local  variables 
c 

integer 
integer 
integer 
integer 
c 

integer 
integer 

double  precision 
c 

common /point/ 


dnaro, dnstr 

npi f npo , ni , no , ninterv, naux, nscale 
idiv^  jdiv, kdiv 
conecti (npi ) , npis (ninterv) 
conecto (npo, 9 ) , npos (ninterv) 
rmin, rmax 

xiO (dnstr) ,yiO (dnstr) , ziO (dnstr) 
xoO (dnaro) ,yo0 (dnaro) , zoO (dnaro) 
xi (npi) ,yi (npi) , zi (npi) , f i (dnstr, 3 ) 
xo(npo) ,yo(npo) ,zo(npo) ,fo(dnaro,3) 
xsi (ni , ninterv) , ysi (ni , ninterv) 
zsi (ni, ninterv) , fsi (ni, 3, ninterv) 
xso (no, ninterv) ,yso (no, ninterv) 
zso (no, ninterv) , fso (no, 3 , ninterv) 


i , interv 

nrl , nr2 , nr3 , nr4 , nrS , nr6 , nr7 , nrS , nr9 
nil 

maxni , maxno , maxn 

next! ,  nextr ,  nnmaxi ,  nnmaxr 

ivect(l) 

rvect (1) 

next  i ,  nextr ,  nnmaxi ,  nnmaxr 
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common/ memo  r/  rvect 

coramon/memoi/  ivect 

.  Put  the  input/output  grids  in  a  working  format 

do  i=l,npi 

xi{i)  =  xiO(i) 
yi{i)  =  yiO{i) 
zi(i)  =  2i0(i) 
end • do 

do  i=l,npo 

xo(i)  =  xoO(i) 
yo (i)  =  yoO (i) 
zo(i)  =  zoO(i) 
end  do 

.  Scale  the  domain  to  a  unity  cube  [0,1]  x  [0,1]  x  [0,1] 
if (nscale.eq. 1)  then 

write (*,*)’ Scale  the  domain  to  a  unity  cube 
write ( * , * ) 
end  if 

call  scalesr  (nscale,npi, npo,naux, 

1  xi,yi, 2i,xo,yo, zo) 

.  Partition  the  given  domain 

write (*,*) 'Partition  the  given  domain  (x-y-z  plane)  ... 
write ( * , * ) 

call  part it  ( idiv , j di v , kdiv , npi , ni , npo , no , 

1  ninterv, dnstr, dnaro, 

2  xi , yi , zi , f i , xo , yo , zo , 

3  xsi,ysi, zsi, fsi,xso,yso, zso, 

4  conecti , conecto, npis , npos) 

.  Local  memory  allocation  (real  part) 

maxni  =  0 
maxno  =  0 
do  i=l, ninterv 

write ( * , * ) ' interv  npis { interv) ' , i , npis ( i ) 
write ( * , * ) ' interv  npos { interv) ' , i , npos ( i ) 
if (npis (i) .gt. maxni)  maxni  =  npis(i) 
if (npos (i) . gt .maxno)  maxno  =  npos(i) 
end  do 

i f ( maxni . g t . maxno )  then 
maxn  =  maxni 
else 

maxn  =  maxno 
end  if 

nrl  ...  B( maxni, maxni) 
nr2  ...  wkarear (maxn) 
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c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 


nr 3  . . ,  BIG (maxno , maxni ) 

nrS  ...  R (maxni , naux) 
nr 7  . . .  RI (maxn, naux) 

nr9  . . .  alpha (maxni) 

nrl  =  nextr 

nr 2  =  nrl  +  maxni *maxni 

nr3  =  nr2  +  maxn 

nr 5  =  nr 3  +  maxno *maxni 

nr7  =  nr 5  +  maxni *naux 

nr 9  =  nr 7  +  maxn*naux 

nextr  =  nr9  maxni 

.  . . .  Local  memory  allocation  (integer  part) 

nil  ...  wkareai (maxn) 

nil  =  nexti 
nexti  =  nil  +  maxn 

if (nnmaxr . It . nextr . or . nnmaxi . It . nexti )  then 
write(*,*)  'NOT  ENOUGH  MEMORY  FOR  THIS  CASE' 
write {*,*)  'Last  allocated  integer  position  =', nexti 
write (*,*)  'Maximum  allocated  integer  position  =', nnmaxi 
write (*,*)  'Last  allocated  real  position  nextr 

write(*,*)  'Maximum  allocated  real  position  =', nnmaxr 
if (nnmaxr . It .nextr)  STOP  'More  real  memory  is  necessary' 
if (nnmaxi. It. nexti)  STOP  'More  integer  memory  is  necessary' 
end  if 

.  . . .  Perform  the  MQ/TPS  interpolation  in  each  sub-region 

write (*,*)' Perform  the  interpolation  in  each  sub-region  ...' 
write {*  f*) 

do  interv  =  1,  ninterv 

.  Non-dimensionalization  of  the  coordinates  for  a 

given  sub-region 

if (nscale. eq. 1)  then 

write (*,*)■ Scaling  sub-region',  interv,'  ...' 
write (*, *) 
end  if 

call  scalesr  (  nscale, npis ( interv) , npos (interv) ,naux, 

1  xsi ( 1 , interv) , ysi { 1 , interv) , zsi ( 1 , interv) , 

2  xso (1, interv) ,yso (i, interv) , zso (1, interv)  ) 

.  Evaluate  the  interpolated  function  (fso)  for  the  sub-region 

write (*,*) 'Interpolating  for  sub-region' ,  interv, '  . . . ' 

write ( * , * ) 

call  inter  (maxni , maxno, maxn, naux, npis  (interv)  , npos  (interv)  , 
1  ni , no , rmin , rmax , 
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2  xsi (1, interv) ,ysi (1, interv) , zsi (1, interv) , 

3  xso (1, interv) ,yso (1, interv) , zso {1, interv) , 

4  rvect (nrl) ,rvect (nrS) , 

5  rvect (nr2 ) , ivect (nil ) , rvect (nr3 ) , rvect (nr 7 ) , 

6  rvect (nr9) , fsi (1, 1, interv) , 

7  fso (1^1, interv)  ) 
c 

end  do 
c 

c....  Average  the  interpolated  function  over  the  overlaped  areas 
c 

write (*,*) 'Average  over  the  overlaped  areas 
write ( * , * ) 

call  overlap  (dnaro,npo,no,ninterv, fso, conecto, 

1  fo) 

c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 


c 

c 

c 

c  SUBROUTINE  OVERLAP 

c 

c  Evaluate  the  value  of  the  output  function  that  belongs  to  an 

c  overlaping  area  by  simply  weighting  the  interpolated  result  that 

c  comes  from  the  diferent  sub-regions 

c 

c  Created:  SEP08,95 

c  Last  Modified: 

c 

Q*  *  *  *  ir  *  *  *  *  *  *  *  ie  -k  *  -k  -k  -k  -k  *  ic  *  ^  ie  -k  *  ic  *  -k  -k  -if  -k  -k  -k  -k  *  -k  -k  :k  it  if  *  -k  ic  -k  -k  -k  -k  *  -k  it  -k  -k  *  -k  -k  -k  ic  ir  -k  -k  -k  ic  it  *  ic  it  -k 

c 


c 

c 


c 


subroutine  overlap  ( dnaro , npo , nno , ninterv, f so , conecto , 
1  fo) 

implicit  none 


integer  dnaro , npo , nno , ninterv 

integer  conecto (npo, 17 ) 

double  precision  f so (nno, 3 , ninterv) 
double  precision  fo (dnaro, 3) 


c 


integer 


m , i , nint , naux , interv , no 


do  m=l,npo 

nint  =  conecto (m,l) 

if (nint .gt . 17 )  STOP  'at  overlap  -  nint  >  9' 
do  i=l,nint 
naux  =  2*i 

interv  =  conecto (m, naux) 
no  =  conecto (m, naux+1 ) 
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fo{m,l)  =  fo(m,l)  +  fso (no, 1/ interv) /nint 
fo(m,2)  =  fo(m,2)  +  f so (no, 2 , interv) /nint 
fo{m,  3)  =  fo(ni,3)  +  f  so  (no,  3  ,  interv) /nint 
end  do 
end  do 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 


c 

c 

c  SUBROUTINE  SCALESR 

c 

c  Scales  the  sub-region  to  a  unity  cube  [0,1]  x  [0,1]  x  [0,1] 
c 

c  Created:  SEP07,95 

c  Last  Modified: 

c 

c 

subroutine  scalesr  (nscale, npi , npo, naux, 

1  xsi,ysi , zsi , xso,yso, zso) 


c 


c 


c 


c 

c 

c 

c 

c 

c 

c 


implicit 


none 


integer  nscale , npi , npo , naux 

double  precision  xsi (npi ) ,ysi (npi ) , zsi (npi ) 
double  precision  xso (npo) , yso (npo) , zso (npo) 


integer  i 

double  precision  xmin, xmax,ymin,ymax, zmin, zmax 
double  precision  auxx, auxy, auxz, dx, dy, dz 


double  precision  eps 
parameter  (eps=l . OD-14) 


.  ...  Scale  the  domain  to  a  unit  cube  (  [0,1]  x  [0,1]  x  [0,1]  ) 


Find  the  min.  and  max.  coordinate  values  along  each  direction 
considering  all  the  point  involved  in  the  sub-region  (both  input 
as  well  as  output  points) 


xmax  =  xsi(l) 
xmin  =  xsi (1) 
ymax  =  ysi (1) 
ymin  =  ysi (1) 
zmax  =  zsi(l) 
zmin  =  zsi(l) 


call  mimax  (npi, xsi, ysi, zsi, npi, 

1  xmin ,  xmax ,  ymin ,  ymax ,  zmin ,  zmax ) 


c 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c .  . 
c 


c 

c .  . 

c 


dx  =  xmax  -  xmin 
dy  =  ymax  -  ymin 
dz  =  zmax  -  zmin 

For  the  Thin-Plate  Spline  Method 
(changes  from  2-D  to  3-D  analysis) 

naux  =  2  -->  1-D  sub-domain 
=  3  -->  2-D  sub-domain 
=  4  -->  3-D  sub-domain 

i f (naux . eq . 2 . or . naux . eq . 3 . or . naux . eq . 4 )  then 
if (dabs (dx) .gt . eps )  then 
if (dabs (dy) .gt .eps)  then 
if (dabs (dz) .gt.eps)  then 
naux  =  4 
else 

naux  =  3 
end  if 
else 

naux  =  2 
end  if 
end  if 
end  if 

If  scale  is  not  to  take  place  (nscale . ne . 1) ,  return  to  the 
calling  routine 

if (nscale.ne. 1)  RETURN 

call  mimax  {npo,xso,yso, zso,npo, 

1  xmin, xmax, ymin, ymax,  zmin,  zmax) 

..  All  grid  points  have  coordinates  between  [0,1] 

Note:  If  there  is  no  variation  along  one  direction, 
it  is  made  the  constant  equal  to  zero  as  part 
of  the  scaling  process 

dx  =  xmax  -  xmin 
dy  =  ymax  -  ymin 
dz  =  zmax  -  zmin 

if (DABS (dx) .gt.eps)  then 

Structural  grid  along  x 

do  i=l,npi 

xsi{i)  =  (  xsi(i)  -  xmin  )  /  dx 
end  do 

Aerodynamic  grid  along  x 
do  i=l,npo 
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(  xso(i)  -  xinin  )  /  dx 


xso(i)  = 
end  do 
c 

else 
c 

c . . . .  structural  grid  along  x 
c 

do  i=l,npi 

xsi(i)  =  xsi(i)  -  xmin 
end  do 
c 

c. . . .  Aerodynamic  grid  along  x 
c 

do  i=l,npo 

xso(i)  =  xso(i)  -  xmin 
end  do 
c 

end  if 
c 

c - 

c 

i f ( DABS ( dy ) . gt . eps )  then 
c 

c. . . .  Structural  grid  along  y 
c 

do  i=l,npi 

ysi(i)  =  (  ysi(i)  -  ymin  )  /  dy 
end  do 
c 

c. . , .  Aerodynamic  grid  along  y 
c 

do  i=l,npo 

yso(i)  =  (  yso(i)  -  ymin  )  /  dy 
end  do 
c 

else 

c 

c . . . .  Structural  grid  along  y 
c 

do  i=l,npi 

ysi{i)  =  ysi(i)  -  ymin 
end  do 
c 

c . . . .  Aerodynamic  grid  along  y 
c 

do  i=l,npo 

yso(i)  =  yso(i)  -  ymin 
end  do 
c 

end  if 
c 

Q - 

c 

if (DABS (dz) .gt.eps)  then 
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c 

c . . . .  structural  grid  along  z 
c 

do  i=l,npi 

zsi(i)  =  (  zsi(i)  -  zmin  )  /  dz 
end  do 


c .  . 

c 


c 

c .  .  ,  , 
c 


c 

c 

c .  .  .  . 

c 


Aerodynamic  grid  along  z 
do  i=l,npo 

zso(i)  =  {  zso{i)  -  zmin  )  /  dz 
end  do 

For  the  Thin-Plate  Spline  Method 

(changes  from  2-D  to  3-D  analysis) 

else 

Structural  grid  along  z 
do  i=l,npi 

zsi(i)  =  zsi(i)  -  zmin 
end  do 

Aerodynamic  grid  along  z 
do  i=l,npo 

zso(i)  =  zso(i)  -  zmin 
end  do 

end  if 

END  OF  SUBROUTINE 

return 

end 


c 

c 

C  SUBROUTINE  PARTIT 

c 

c  Performs  the  domain  partition  for  the  MQ  method 

c 

c  Created:  SEP04,95 

c  Last  Modified: 

c 

C 


C 


subroutine  partit 

1 

2 

3 

4 


{ idiv , j  div , kdi v , npi , nni , npo , nno , 
ninterv, dnstr , dnaro, 
xi,yi, zi, fi,xo,yo, zo, 
xsi^ysi, zsi, fsi,xso,yso, zso, 
conecti , conecto , npis , npos ) 


413 


c 


c 


c 


c 


c 

c 

c 


c 


c 

c 

c 

c 

c 


c 


c 


c 


implicit  none 

integer 

integer 

double  precision 
double  precision 

integer 

integer 

double  precision 
double  precision 
double  precision 
double  precision 

integer 

integer 

integer 

double  precision 
double  precision 
double  precision 

Initialize  arrays 

do  i=l,npi 

conecti(i)  =  0 
end  do 

do  j  =1 , 9 
do  i=l,npo 

conecto ( i , j )  = 
end  do 
end  do 


idiv, jdiv, kdiv, npi , nni , npo , nno 
ninterv, dnstr, dnaro 
xi (npi) ,yi (npi) , zi (npi) , fi {dnstr, 3) 
xo (npo) ,yo (npo) , zo (npo) 

npis (ninterv) , npos (ninterv) 
conecti (npi ) , conecto (npo , 17 ) 
xsi (nni , ninterv) ,ysi (nni, ninterv) 
zsi (nni, ninterv) , fsi (nni, 3, ninterv) 
xso (nno, ninterv) ,yso (nno, ninterv) 
zso (nno, ninterv) 

ij  Oi 

i ,  j  ,  k,m,  interv, ni , no,  ii ,  j  j 
naux , auxi , auxo 

deltax, deltay, deltaz , tolx, toly, tolz 
xmin ,  xmax ,  ymin ,  ymax ,  zmin ,  zmax 
xminO , yminO , zminO 


0 


Determine  delta_x,  delta_y,  and  delta^z  based  on  the  number  of 
subdivisions,  as  well  as  the  size  of  the  overlaping  region  based 
on  a  percentage  of  the  size  of  the  interval  (assumed  to  be  10%) 


xmax  =  xi  ( 1 ) 
xminO  -  xi(l) 
ymax  =  yi  ( 1 ) 
yminO  =  yi  ( 1 ) 
zmax  =  z  i  { 1 ) 
zminO  =  zi(l) 

call  mimax  (npi , xi ,yi , zi , npi , 

1  xminO, xmax, yminO, ymax,  zminO,  zmax) 


call  mimax  (npo , xo, yo , zo, npo, 

1  xminO, xmax, yminO, ymax,  zminO,  zmax) 


deltax  =  (xmax  -  xminO ) /dfloat ( idiv) 
deltay  =  (ymax  -  yminO ) /dfloat ( jdiv) 
deltaz  =  (zmax  -  zminO ) /dfloat (kdiv) 
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c 

c .  This  can  only  be  used  when  one  has  a  unit  cube 

c  deltax  =  1 . 0 /df loat ( idiv) 

c  deltay  =  1 . 0/df loat { jdiv) 

c  deltaz  =  1 . 0/df loat (kdiv) 

c 


tolx  =  O.l’^deltax 
toly  =  0.1*deltay 
tolz  =  O.l^deltaz 
c 

c....  Find  the  association  between  a  grid  point  and  the  given  region 
c 

interv  =  0 
c 

do  k=l,kdiv 

zmin  =  zminO  +  (k-l)*deltaz  -  tolz 
zmax  =  zmin  +  deltaz  +  2.0* tolz 
c 

do  j=l,jdiv 

ymin  =  yminO  +  (j-l)*deltay  -  toly 
ymax  =  ymin  +  deltay  +  2.0* toly 
c 

do  i=l,idiv 

interv  =  interv  +  1 

xmin  =  xminO  +  {i“l)*deltax  -  tolx 

xmax  =  xmin  +  deltax  +  2.0*tolx 


c 

c .  Check  which  points  are  in  the  given  region  and  assemble  new 

c  arrays  for  the  coordinates 

c 


c...  Check  limits  of  the  sub-region 
c 

ni  =  0 
do  m=l,npi 

if (xi(m) . ge. xmin. and. xi (m) . le .xmax. and. 

1  yi  (m)  .ge. ymin. and. yi  (m)  .  le  .ymax. and. 

2  zi(m) .ge. zmin. and. zi(m) .le.zmax)  then 
ni  =  ni  +  1 

xsi (ni , interv)  =  xi (m) 
ysi (ni, interv)  =  yi (m) 
zsi (ni, interv)  =  zi (m) 
f si (ni, 1, interv)  =  fi(m,l) 
fsi (ni, 2 , interv)  =  fi(m,2) 
f si (ni , 3 , interv)  =  fi(m,3) 
c 

c .  Save  the  connectivity  information  for  the  point 

naux  =  conecti (m) 
i f ( naux . gt . 7 )  then 

write (*,*) ‘ ERROR  in  point  assignment  to  a  sub-region' 
STOP  ' Error-conecti ' 
end  if 

conecui (m)  =  naux  +  1 
c 

end  if 
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end  do 

npis(interv)  =  ni 

no  =  0 
do  m=l,npo 

if  (xo{m)  ,ge.xmin.and.xo(in)  ,  le.xmax. and. 

1  yo(m)  .ge  .ymin. and.yo  (m)  ,  le.ymax.and. 

2  zo(m)  .ge.zmin.and.2o(m)  .le.zmax)  then 
no  =  no  +  1 

xso (no, interv)  =  xo(m) 
yso (no, interv)  =  yo{m) 
zso (no, interv)  =  zo{m) 

. .  Save  the  connectivity  information  for  the  point 
naux  =  conecto(m,l) 
if (naux.gt .7)  then 

write (*,*) 'ERROR  in  point  assignment  to  a  sub-region' 
write (*,*) 'point  naux' ,m, naux 
write  ( *  ,  * )  '  xo  (m)  yo  (m)  '  ,  xo  (m)  ,  yo  (m) 

STOP  ' Error-conecto ' 
end  if 

conecto(m,l)  =  naux  +  1 
conecto (m, 2*naux+2 )  =  interv 
conecto (m, 2*naux+3 )  =  no 

end  if 
end  do 

npos( interv)  =  no 

end  do 
end  do 
end  do 

Check  if  the  original  estimation  of  the  number  of  intervals 
(ninterv)  has  not  been  miscalculated 

if (interv. gt .ninterv)  then 

write(*,*)  'From  subroutine  PARTIT’ 

write (*,*)  'Bad  estimation  of  total  number  of  sub-regions' 
write (*,*)  'Estimated  number  (ninterv)  =', ninterv 
write(*,*)  'Needed  number  (interv)  =', interv 
STOP  'ERROR  -  ninterv  too  small' 
end  if 

Check  if  all  the  points  have  been  assigned  to  one  of  the  regions 

auxi  -  0 
do  m=l,npi 

if (conecti (m) .eq.O)  then 
auxi  =  auxi  +  1 


do  m=l,npo 

i f ( conecto (m, 1 ) . eq . 0 )  then 
auxo  =  auxo  +  1 
end  if 
end  do 
c 

if { auxi . ne . 0 . or . auxo . ne . 0 )  then 

write {*,*) 'ERROR  in  the  domain  sub-division' 
write(*,*) 'Number  of  input  points  left  over  =',  auxi 
write (*,*) 'Number  of  output  points  left  over  =',  auxo 
write (*,*) 'Number  of  input  points  included  =’,npi  -  auxi 
write (*,*) 'Number  of  output  points  included  =',npo  -  auxo 
STOP  'domain  sub-division' 
end  if 
c 

C . . . .  END  OF  SUBROUTINE 
c 

return 

end 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  INTER 

Performs  the  interpolation  based  on  the  MQ  or  TPS  methods 

naux  =  1  — >  Multiquadric  Method 

=  2  -->  1-D  Thin-Plate  Spline  Method 
=  3  -~>  2-D  Thin-Plate  Spline  Method 
=  4  — >  3-D  Thin-Plate  Spline  Method 


Created:  SEP26,95 

Last  Modified: 


c 

subroutine  inter 

1 

2 

3 

c 

implicit 

c 

integer 

integer 

integer 

double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 


(ni , no , nmax, naux, npi , npo 
xi,yi, zi,xo,yo, 20, 

B , R , wkarear , wkar eai , BIG 
fo) 

none 

ni , no , npi , npo , nni , nno 
nmax , naux 
wkareai (nmax) 
rmin ,  rmax 

xi (ni) ,yi (ni) , zi (ni) 
xo (no) ,yo (no) , zo (no) 
B(ni,ni) ,BIG(no,ni) 
R(ni,naux/ , RI ( nmax , naux ) 
wkarear ( nmax ) , alpha ( ni ) 
fi (nni, 3) 
fo (nno, 3 ) 


nni , nno , rmin , rmax , 
RI, alpha, fi. 
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integer  i ,  j 

double  precision  d 


c..,.  Assembling  the  coefficient  matrix  [B] 
c 

c  write(*,*)'  Assembling  the  coefficient  matrix  [B] ' 

c  write ( * , * ) 

c 

call  bmatrx  (naux,ni,npi, xi ,yi, zi,ni,npi, xi,yi, zi , rmin, rmax, 

1  B) 

c 

c. . . .  Assembling  the  coefficient  matrix  [R] 
c 

c  write (*,*)'  Assembling  the  coefficient  matrix  [R] ’ 

c  write (*,*) 

call  Rmatrx  (ni,naux,ni,npi,xi,yi, zi, 

1  R) 

c 

c....  Perform  first  phase  of  the  LU  decomposition  on  matrix  [B] 
c 

c  write (*;*) '  First  phase  of  LU  decomposition  on  [B] ’ 

c  write(*,*) 

call  ludcmpd  ( B , npi , ni , wkareai , d , wkarear ) 
c 

c. . . .  Do  a  loop  over  the  modes  (not  implemented  because  the  mode  under 
c  consideration  is  defined  at  the  driver 

c  level,  which  is  not  too  efficient  for 

c  this  method) 

c  do  imode=l,mode 

c 

c....  Compute  the  interpolated  mode  for  each  of  the  components 
c  of  the  given  input  mode 

c 

c .  x~ component 


c 

write (*,*)'  Compute  the  interpolated  mode  for  x-component' 
write ( * , * ) 

call  fitfo  (nraax,naux,no,npo,xo,yo, zo, 


1  ni,npi,xi,yi, zi , rmin, rmax, 

2  B, R, wkarear, wkareai, BIG, RI, fi (1, 1) , alpha, 

3  fo(l,l)) 
c 

c . y-component 

c 


write (*,*)'  Compute  the  interpolated  mode  for  y- component ' 
write ( * , * ) 

call  fitfo  (nmax,naux,no,npo,xo,yo, zo, 


1  ni,npi,xi,yi, zi , rmin, rmax, 

2  B , R , wkarear , wkareai , BIG , RI , f i ( 1 , 2 ) , alpha , 

3  fo(l,2)) 
c 

c .  z- component 

c 


418 


write (*,*)'  Compute  the  interpolated  mode  for  z-component' 
write {*, *) 

call  fitfo  {nmax,naux,no,npo,xo,yo, ZO/ 

1  ni,npi,xi,yi, zi, rmin,rmax, 

2  B;R,wkarear,wkareai.BIG,RI, fi {1, 3) ^alpha, 

3  fo(l,3)) 
c 

c . „ . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

c 

C  SUBROUTINE  FITFO 

C 

c  Performs  the  interpolation  based  on  the  MQ  or  TPS  methods 

c 

c  Created:  SEP26,95 

c  Last  Modified: 

c 

^**** *************************************** *******^^^*^****^^*^****^^^^ 
c 

subroutine  fitfo  (nmax, naux, no, npo, xo, yo, zo, 

1  ni ,npi,xi ,yi , zi, rmin, rmax, 

2  B , R , wkarear , wkareai , BIG , RI , f i , alpha , 

3  f  o) 
c 

implicit  none 

c 

integer  nmax,naux 

integer  ni , npi , no , npo 

integer  wkareai (nmax) 

double  precision  rmin,rmax 
double  precision  xi (ni) ,yi (ni) , zi (ni) 
double  precision  xo (no) , yo (no) , zo (no) 
double  precision  B (ni , ni) , BIG (no, ni) 
double  precision  R (ni , naux) , RI (nmax, naux) 
double  precision  alpha (ni ), wkarear (nmax) 
double  precision  fi(ni) 
double  precision  fo(no) 
c 

integer  i,j 

integer  aux2(16) 

double  precision  err,err2,d 
double  precision  beta (4) 

double  precision  auxf (4) , auxl ( 4 , 4 ) , aux3 ( 16 ) 
c 

c. . . .  Backup  {fi}  in  wkarear 
c 

do  i=l,npi 

wkarear (i)  =  fi(i) 
end  do 
c 
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c....  Perforin  second  phase  of  LU  decomposition  (backsubstitution) 
c 

c  write(*,*) '  ...  Perform  second  phase  of  LU  decomposition  [B] ' 

c  write ( *  ^  ) 

call  lubksbd  (B, npi , ni , wkareai , f i) 
c 

c. . . .  Calculate  the  constants  \alpha  and 
c  constraint  constants  \beta 

c 

c  beta  =  (  R''T  .  .  R^'T  .  fi 

c 

c....  Backup  [R]  in  [R_I] 
c 

do  j=l,naux 
do  i=l,npi 

RI(i,j)  =R{i,j) 
end  do 
end  do 


c 

c .  Perform  second  phase  of  LU  decomposition  (backsubstitution) 

c 

c  write (*,*) '  ...  Perform  second  phase  of  LU  decomposition  [R] ' 

c  write (*,*) 


do  i=l,naux 

call  lubksbd  (B,npi,ni, wkareai,RI (1, i) ) 

end  do 
c 

call  1 smptd  ( R , ni , npi , naux , RI , nmax , naux , auxl , 4 ) 
c 

call  Ismptd  (R, ni , npi , naux, f i,ni , 1 , auxf , 4) 
c 

if (naux. eq. 1)  then 
c 

c .  For  Multiquadric  Method 

beta(l)  =  auxf(l)  /  auxl (1,1) 
c 

do  i=l,npi 

alpha (i)  =  fi(i)  -  RI (i, 1) *beta(l) 
end  do 
c 

elseif (naux.eq.2 . or .naux. eq. 3 .or .naux. eq. 4)  then 


c 

c .  For  Thin-Plate  Spline  Method 

c  write(*,*)'  ...  Perform  first  phase  decomposition  for  [auxl]' 

c  write {*,*) 

call  ludcmpd  ( auxl , naux , 4 , aux2 , d , aux3 ) 
c  write(*,*)'  ...  Perform  second  phase  decomposition  for  [auxl]' 

c  write(*,*) 

call  lubksbd  ( auxl , naux , 4 , aux2 , auxf ) 
c  call  lubksbd  (auxl , 3 , 4 , aux2 , auxf ) 

do  i=l,naux 

beta(i)  =  auxf(i) 
end  do 

call  Ismpd  (RI , nmax , npi , naux , beta ,4,1, alpha , ni ) 
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c 


do  i=l,npi 

alpha (i)  =  fi{i)  -  alpha (i) 
end  do 
c 

end  if 
c 

c . . . .  Check  on  the  constraints 

c  (the  constraint  requires  that  R^T  ,  alpha  =  0) 

c 

call  Ismptd  {R,ni,npi,naux, alpha, ni, l,auxf , 4) 
write(*,*)’  Error  in  the  constraint  for  alpha' 

do  i=l,naux 

write constraint i, "  =  ',auxf(i) 
end  do 
write (*, *) 
c 

c....  Evaluate  the  coefficient  matrix  based  on  both  input  and  output 
c  grid  points 
c 

c  write (*,*) '  ...  Evaluate  [B_IG] ' 

call  bmatrx  {naux, no, npo, xo ,yo, 20 , ni , npi , xi , yi , zi , rmin, rmax, 

1  BIG) 

c 

c  write (*,*)'  ...  Evaluate  [R_I] ' 

c  writer*,*) 

call  Rmatrx  (nmax,naux,no,npo,xo,yo, zo, 

1  RI) 

c 

c....  Evaluate  the  product  [BIG] * {alpha}  +  [RI]*{beta}  =  {Hi} 
c 

c  write {*,*)’  ...  Evaluate  {Hi}' 

c  write (*,*) 

call  Ismpd  ( BIG, no, npo, npi, alpha, ni , 1, fo,no) 

call  Ismpd  (RI , nmax, npo, naux, beta, naux, 1 ,wkar ear , nmax) 

do  i=l,npo 

fo(i)  =  fo(i)  +  wkarear(i) 
end  do 
c 

c . . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

Q-it  -k  ir  *  *  *  *  'k  ic  if  ic  *  *  -k  ie  ic  *  ic  ic  *  *  ir  -k  *  *  *  *  ic  ic  *  *  ic  'k  ic  ic  *  if  ic  *  it  ‘k  *  *  ic  -k  -k  -k  ic  -k  -k  i(  *  -k  -k  *  -k  -k  -k  *  *  -k  -k  -k  -k  i(  *  -k 
C 

c  SUBROUTINE  BMATRX 

c 

c  Generates  the  coefficient  matrix  based  on  the  basis  functions  and 
c  a  user-defined  varing  parameter  "r" 
c 

c  Created:  SEP04,95 

c  Last  Modified: 

c 
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c 

subroutine  bmatrx  {naux,no,npo,xo,yo, zo,ni,npi ,xi ,yi, zi , rmin,  innax, 
1  B) 

c 

implicit  none 

c 

integer  naux, ni , no, npi , npo 

double  precision  rmin,rmax 
double  precision  xo (no) ,yo (no) , zo (no) 
double  precision  xi (ni) ,yi (ni) , zi (ni) 
double  precision  B(no,ni) 
c 

integer  i,j 

double  precision  npil, exp, r2 , raux 
double  precision  xxi,xxj ,yyi,yyj , zzi, zzj 
c 

double  precision  eps 
parameter  (eps=l . Od-14) 
c 

c....  Check  if  MQ  or  TPS  has  been  selected 
c 

Q - 

c  Multiquadrics  Basis  Functions 

c - 

i f ( naux . eq . 1 )  then 
c 

c....  Constant  calculation  for  the  varying  "r"  parameter 
c 

npil  =  dfloat(npi)  ~  1.0 
raux  =  (rmax/rmin)  *,(rmax/rmin) 
c 

c....  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
xxj  =  xi(j) 

yyj  =  yi{j) 

zzj  =  zi(j) 

exp  =  (  dfloat(j)  -  1.0  )  /  npil 
r2  =  (rmin*rmin) * (  (raux)**exp  ) 
do  i=l,npo 
xxi  =  xo ( i ) 
yyi  =  yo(i) 
zzi  =  zo(i) 

B(i,j)  =  dsqrt (  (xxi  -  xxj)* (xxi  -  xxj)  + 

1  (yyi  -  yyj)*(yyi  -  yy j )  + 

2  (zzi  -  zzj)*(zzi  -  zzj)  +  r2  ) 

end  do 

end  do 
c 

return 
end  if 
c 

c - 
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c  End  of  MQ 

C - ; - 

C 

Q - 

c  Thin-Plate  Spline  Basis  Functions 


c. . . .  1-D  Problems 
c 

if (naux. eq. 2 )  then 
c 

c....  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
XX j  =  xi(j) 
zzj  =  zi(j) 
do  i=l,npo 
xxi  =  xo ( i ) 
zzi  =  zo(i) 

r2  =  (xxi  “  xxj ) * (xxi  -  xx j )  + 

1  (zzi  -  zzj)*(zzi  -  zzj) 

if (r2 . It . eps)  then 
B{i,j)  =  0.0 
else 

B(i,j)  =  r2  *  DLOG(r2)  /  2.0 
end  if 
end  do 
end  do 
c 

return 
end  if 
c 

c. . . .  2-D  Problems 
c 

if (naux . eq . 3 )  then 
c 

c.,..  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
XX j  =  xi ( j ) 

yyj  =  yi(j) 

do  i=l,npo 
xxi  =  xo { i ) 
yyi  =  yo(i) 

r2  =  (xxi  -  xxj)*(xxi  xx  j )  + 

1  (yyi  -  yyj  )  *  (yyi  -  yyj  ) 

if {r2 . It .eps)  then 
B(i,j)  =  0.0 
else 

B(i,j)  =  r2  *  DL0G{r2)  /  2.0 
end  if 
end  do 
end  do 
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return 
end  if 
c 

c. . . .  3-D  Problems 
c 

if {naux.eq. 4)  then 
c 

c....  Evaluate  the  matrix  of  coefficients  [B] 
c 

do  j=l,npi 
XX  j  =  xi(j) 

yyj  =  yi(j) 

zzj  =  zi(j} 
do  i=l,npo 


xxi  = 

xo{i) 

yyi  = 

yo{i) 

zzi  = 

zo{i) 

r2  = 

(xxi  - 

xxj )  *  (xxi 

-  xxj )  + 

1 

(yyi  - 

yyj )  *  (yyi 

-  yyj)  + 

2 

(zzi  - 

zzj ) * (zzi 

-  zzj) 

if {r2 .It.eps)  then 


B(i, j)  =0.0 
else 

B(i,j)  =  r2  *  DL0G(r2}  /  2.0 
end  if 
end  do 
end  do 
c 

return 
end  if 

c - 

c  End  of  TPS 

- - 

c 

if (naux . ne . 1 . and . naux . ne . 2 . and . naux . ne . 3 . and . naux . ne . 4 )  then 
write (*,*)' naux  not  properly  defined  in  subroutine  "bmatrx" ' 
write ( * , * ) ' naux  = ' , naux 

STOP  ' naux  not  equal  to  1 ,  2 ,  3  or  4  in  bmatrx ' 
end  if 
c 

C . . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

c 

c  SUBROUTINE  RMATRX 

c 

c  Generates  the  constraint  matrix  based  on  the  basis  functions 
c 

c  Created:  SEP26,95 

c  Last  Modified: 

c 
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c 

subroutine  Rmatrx  {no,naux,ni,npi,xi,yi, zi, 

1  R) 

c 

implicit  none 

c 

integer  ni , no , npi , naux 

double  precision  xi (ni) ,yi (ni) , zi (ni) 
double  precision  R{no,naux) 
c 

integer  i 

c 

c . . . .  Evaluate  the  matrix  of  constraints  [R] 
c 

do  i=l,npi 
R{i,l)  =  1.0 
end  do 
c 

if (naux. eq. 2 )  then 
do  i=l,npi 

R(i,2)  =  xi (i) 
end  do 
end  if 
c 

i f ( naux . eq . 3 )  then 
do  i=l,npi 

R(i, 2)  =  xi (i) 

R(i,3)=yi(i) 
end  do 
end  if 
c 

i f ( naux . eq . 4 )  then 
do  i=l,npi 

R ( i , 2 )  =  xi { i ) 

R  ( i , 3 )  =  yi ( i ) 

R(i,4)  =  zi (i) 
end  do 
end  if 
c 

C . . . .  END  OF  SUBROUTINE 
c 

return 

end 

c 

c 

c  SUBROUTINE  FOTSXA 

c 

c  Transfer  output  data  from  the  simple  array  used  in  MQ  calculations 
c  to  the  grid  format  of  the  driver  (sxs, sys, szs) 

c 

c  Created:  SEP04,95 

c  Last  Modified: 
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c 

c 


c 


c 

c 


c 

c 

c 

c 


subroutine  fotsxa  (npo, fo, ia, ja, ka.mode, sea) 


implicit 

integer 

integer 

real 

real 


none 

ia, ja, ka.mode 
npo 

fo (npo) 

sea { ia , j  a , ka , mode ) 


integer 


i,  j ,k,m 


m=l 

do  k=l,ka 
do  j=l,ja 
do  i=l,ia 

sea (i , j , k^mode) =fo (m) 
m=m-fl 


enddo 

enddo 

enddo 


END  OF  SUBROUTINE 

return 

end 


c 

^**************************^*********.***st***********^******************* 

c 

c  SUBROUTINE  MIMAX 

c 

c  Finds  the  minimum  and  the  maximum  among  the  elements  of  a  vector 

c 

c  Created :  0CT2  4,95 

c  Last  Modified: 

c 

C****************'^*******'f^********ifkic-kici,**i<-k-kiriric^***-kic*^**iciT**:k-k*-k**ic-k-k* 

C 


c 


c 


c 

c 

c 

c 


subroutine  mimax 

1 


(npi,xsi,ysi, zsi,ni, 
xmin , xmax , ymin , ymax , zmin , zmax ) 


implicit 

integer 

double  precision 
double  precision 


none 
ni , npi 

xsi (ni) ,ysi (ni) , zsi (ni) 

xmin ,  xmax ,  ymin ,  ymax ,  zmin ,  zmax 


integer  i 

double  precision  auxx, auxy, auxz 


Find  the  min.  and  max.  coordinate  values  along  each  direction 
considering  all  the  point  involved  in  the  sub-region  (both  input 
as  well  as  output  points) 
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c 


c 

c .  .  .  . 

c 


do  i=l,npi 

auxx  =  xsi (i ) 
auxy  =  ysi  (i) 
auxz  =  zsi{i) 
if (auxx.gt .xmax) 
if (auxx. It ,xmin) 
i f ( auxy . gt . ymax ) 
if (auxy. It .ymin) 
if (auxz , gt . zmax) 
if  (auxz  .  It .  zitiin) 
end  do 


xmax 

= 

auxx 

xmin 

= 

auxx 

ymax 

= 

auxy 

ymin 

auxy 

zmax 

= 

auxz 

zmin 

= 

auxz 

END  OF  SUBROUTINE 


return 

end 


c 

- - 

c  This  subroutine  performs  Lower  -  Upper  (LU)  decomposition 
c 

c  Obtained  From: 

c  "Numerical  Recipes",  By  Press  &  Flannery  et  al . , 
c  Cambridge  University  Press,  1989,  p.  35-36 

c  a  =  matrix  logical  dimensions  m  by  n 
c  physical  dimensions  mp  by  np 

c  XX  -  row  permutation  effected  by  partial  pivoting 
c  w  -  internal 

- - 

SUBROUTINE  LUDCMPd  ( A ,  N ,  NP ,  INDX ,  D,  W) 
implicit  double  precision  (a--h,o-z) 

PARAMETER  {NMAX=100 , TINY=1 . OE-2 0 ) 
c  DIMENSION  A(NP,NP)  ,  INDX(N)  ,W(NMAX) 

DIMENSION  A(NP,NP)  ,  INDX(N)  ,W{NP) 

D=l. 

DO  12  1=1, N 
AAMAX=0. 

DO  11  J=1,N 

IF  (dABS(A(I,  J)  )  .GT.AAMAX)  AAMAX=dABS  (A  ( I ,  J)  ) 

11  CONTINUE 

IF  (AAMAX.EQ.O. )  PAUSE  'Singularmatrix.' 
W{I)=1./AAMAX 

12  CONTINUE 

DO  19  J=1,N 
DO  14  1=1, J-1 
SUM=A(I, J) 

DO  13  K=1,I-1 

SUM=SUM-A ( I , K ) * A ( K , J ) 

13  CONTINUE 
A(I, J)=SUM 

14  CONTINUE 
AAMAX=0. 

DO  16  I=J,N 
SUM=A(I, J) 
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DO  15  K=1,J-1 

SUM=SUM-A{I,K) *A(K, J) 

15  CONTINUE 
A(I,J)=SUM 
DUM=W{I)  *dABS{SUM) 

IF  (DUM.GE.AAMAX)  THEN 
IMAX=I 
AAMAX=DUM 
ENDIF 

16  CONTINUE 

IF  {J.NE.IMAX)THEN 
DO  17  K=1,N 
DUM=A(IMAX,K) 

A{IMAX,K) =A(J,K) 

A(J,K)=DUM 

17  CONTINUE 
D=-D 

W(IMAX)=W(J) 

ENDIF 

INDX(J) =IMAX 

IF(A(J, J) .EQ.O. )A{J, J)=TINY 
IF(J.NE.N)THEN 
DUM=1. /A(J, J) 

DO  18  I=J+1,N 

A(I, J)=A{I, J) *DUM 

18  CONTINUE 
ENDIF 

19  CONTINUE 
RETURN 
END 

c 

c - 

c  This  subroutine  performs  Lower  -  Upper  (LU)  backsubstitution 
c 

c  Obtained  From: 

c  “Numerical  Recipes",  By  Press  &  Flannery  et  al., 
c  Cambridge  University  Press,  1989,  p.  37 

c  a  =  matrix  logical  dimensions  m  by  n 
c  physical  dimensions  mp  by  np 

c  XX  -  row  permutation  effected  by  partial  pivoting 
c  b  -  on  input  contains  contain  RHS  of  A  x  =  b 
c  on  output  contains  the  solution  x 

c - 

SUBROUTINE  LUBKSBd (A, N, NP, INDX, B) 
implicit  double  precision  (a-h,o-z) 

DIMENSION  A(NP,NP) , INDX(N) ,B(N) 

11=0 

DO  12  1=1, N 
LL=INDX ( I ) 

SUM=B(LL) 

B(LL)=B{I) 

IF  (II.NE.O)THEN 
DO  11  J=II,I-1 

SUM=SUM-A(I, J) *B(J) 
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11  CONTINUE 

ELSE  IF  (SUM.NE.O.)  THEN 
II=I 
ENDIF 
B ( I >  =SUM 

12  CONTINUE 

DO  14  I=N,1,-1 
SUM=B ( I ) 

DO  13  J=I+1,N 

SUM=SUM-A(I, J) *B(J) 

13  CONTINUE 
B(I)=SUM/A(I,I) 

14  CONTINUE 
RETURN 
END 


Q*  ********************************** 

c* 

C*  MULTIPLICATION  OF  TWO  MATRICES 

C* 

c*  Last  Update:  Nov  04,  92 

C* 

C*  OBJECTIVE  : 

C’^  Multiplication  of  A.B  =  C 
C* 

C*  INPUT  : 

C*  A  :  matrix  n  vs .  m 

C*  B  :  matrix  m  vs .  1 

C* 

C*  OUTPUT  : 

C*  C  :  matrix  n  vs .  1,  result  of  A.B 

C* 


* 

* 

* 

* 

* 

★ 

* 

★ 

★ 

* 

★ 

* 

* 

* 


subroutine  Ismpd  (a, na, n,m, b, nb, 1 , c, nc) 
c 

implicit  none 

integer  n,m, l,na,nb,nc 

double  precision  a (na, m) , b (nb, 1 ) 
double  precision  c(nc,l) 
c 

integer  i,D,k 

double  precision  aux 
c 

do  200  i  =  l,n 
do  200  j  =  1,1 
aux  =  0 . OdO 
do  100  k  =  l,m 

aux  =  aux  +  a(i,k)  *  b(k,j) 

100  continue 
c  ( i , j )  =  aux 
200  continue 
c 

return 
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end 


C 


C* 

C* 

c* 

c* 

c* 

c* 


* 

MULTIPLICATION  OF  TWO  MATRICES  * 

[A]  in  band  storage  mode  * 

* 


★ 

Last  Update:  Dec  16,  92  * 


C*  * 
C*  OBJECTIVE  :  - 
C*  Multiplication  of  A.B  =  C  * 
C*  * 


C*  INPUT  : 

C*  A  :  matrix  n  vs  -  n  (BAND  STORAGE  MODE) 

C*  B  :  matrix  n  vs.  1 

C^ 

C*  OUTPUT  : 

C*  C  :  matrix  n  vs .  1,  result  of  A.B 

C* 


c*  *****  * 


***★★***★**★★★*★*★*****★ 


* 

ie 

•k 

* 

* 

* 

* 


*  *  *  ★  * 


c 

c 

c 


c 


c 


100 


subroutine  Ismpbd  (a, n, band, b, 1 , c) 


implicit 


none 


integer  n , band , 1 

double  precision  a (n, band),  b{n,l) 
double  precision  c(n,l) 


integer  i ^  j , k 

double  precision  aux,baux 


do  100  j=l,l 
do  100  i=l,n 

c (i , j )  =  0 . OdO 
continue 


c 

do  300  k=l,l 
do  300  i=l,n 
aux  =  0 . OdO 

do  200  j=l,band 
aux  =  aux  +  b { i+ j -1 , k) *a ( i , j ) 
200  continue 

c ( i , k )  =  aux 
300  continue 


c 

do  400  k=l,l 

do  400  i=l,n-band+l 
baux  =  b(i,k) 
do  400  j =2, band 

c(i-l+j,k)  =  c{i"-l+j,k)  +  baux*a(i,j) 
400  continue 
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o  o 


do  500  k=l,l 
do  500  i=n-band+2,n-l 
baux  =  b{i,k) 
do  500  j=2,n-i+l 

c(i-'l+j,k)  =  c(i~l+j,k)  +  baux^a(i,j) 

500  continue 
c 

return 

end 

c 

Q*  ***★****★★*********★**★**★*★******* 

C*  * 


C*  MULTIPLICATION  OF  TWO  MATRICES  * 

C*  * 

C*  Last  Update:  Mar  09,  93  * 

Q*  *****■★■**★•*■*★★*★****★★******★■*•****** 

c* 

C*  OBJECTIVE  :  * 

C*  Multiplication  of  A^T.B  =  C  * 

C*  * 

C^  INPUT  :  * 

C*  A  :  matrix  n  vs .  m  * 

C*  B  :  matrix  n  vs .  1  * 

C*  * 

C*  OUTPUT  :  * 

C  :  matrix  m  vs .  1,  result  of  A.B  * 


Q*  ★•>t********************************^ 

C 

subroutine  Ismptd  {a,na,n,m, b,nb, 1, c,nc) 
c 

implicit  none 

integer  n , m, 1 , na , nb , nc 

double  precision  a (na, m) , b (nb, 1 ) 
double  precision  c(nc,l) 
c 

integer  i , j , k 

double  precision  aux 
c 

do  200  i  =  l,m 
do  200  j  =  1,1 
aux  =  0 . OdO 
do  100  k  =  l,n 

aux  =  aux  +  a{k,i)  *  b(k,j) 

100  continue 

c ( i , j )  =  aux 
200  continue 
c 

return 

end 

subroutine  nurbs (mode, f ) 
implicit  double  precision  (a-h^o-z) 
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include  'csdcfd.par' 

parameter (ndom=2 , ndim=6 , ndep=6 , nwork=NWK) 
parameter (maxc= (ndim+l) *imxs* jmxs) 
c 

c  xs,ys,zs  -  structural  grid  points 

c  sxs,sys,szs  -  structural  mode  shapes  values  at  grid  points 

c  xa,ya,za  -  aerodynamic  grid  points 

c  sxa,sya,sza  -  calculated  aerodynamic  deflections 

c  isg,jsg,ksg  -  number  of  structural  points 

c  is,js,ks  -  number  of  structural  points  {  for  each  mode) 

c  ia,ja,ka  -  number  of  aerodynamic  points 


c 

common  /struct/  sxs  (imxs,  jraxs,kinxs) 

Sc,  sys  (imxs ,  jmxs,  kmxs )  ,  szs  { imxs,  jmxs ,  kmxs)  ,  is 
js,ks, isg, jsg,ksg 

common  /aero/  xa (dnaro) ,ya (dnaro) , za (dnaro) , fa (dnaro) , npts 
common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , f t (dnstr+3 ) , nspts 
common  /cnt/  ia,ja,ka 

common  /para/  npt_s,npt_t, sdir (imxs* jmxs) ,tdir{jmxs) 
c 

c  Local  Variables 

c  uo  -  array  for  aerodynamic  grid  points  and  mode  shapes 

c  u  -  array  for  structural  grid  points  and  mode  shapes 

c  f  -  array  for  structural  grid  points  to  be  parameterized 

c  St  -  parameterized  values  for  the  structural  grid 

c  sttest  “  parameterized  value  of  the  aerodynamic  grid 

c  work  -  scratch  array  for  dtnurbs  subroutines 

c  NWK  -  dimension  of  scratch  array 

c  V  -  value  of  spline  at  wanted  location 

c  outl,2,3  -  holding  arrays  for  spline  output  values 

c  ipdir  -  holding  array  for  the  plane  direction 

c 
c 

double  precision  uo(iraxa  ,jmxa  ,ndim) ,  v{10) 

double  precision  work (NWK) ,  u ( imxs , jmxs , ndim) , snpvl ( 2 ) , 

&:pt  ( 3 )  ,  p  ( 2 )  ,  s_carray  (maxc ) 
dimens ion  f ( dnaro , 3 ) 
c  for  fitsurf 

dimension  c_tmp( (ndim+l) * jmxs *imxs) 
integer  npts_curv ( jmxs ) 
c 

integer  ipdir (dnaro) 

dimension  xd(4) ,yd(4) , zd(4) , fd{4) , tmp(dnstr) , tmp2 (dnstr) 


c - 

c  Logicals 

c - 

c 

c  npi  -  number  of  point  in  CSD  grid 

c  ndim  -  number  of  dependant  variables 

c  ndeg  -  degree  of  spline 

c 

ipar=2 
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c  write {*,*)  ‘  Enter  the  spline  degree  ’ 

c  read ( * , * )  ndeg 

c  write (*,*)’  Enter  the  spline  degree  in  the  s  direction 

c  read  ndeg  ( 1 ) 

c  write (*,*)'  Enter  the  spline  degree  in  the  t  direction 

c  read ( * , * ) ndeg { 2 ) 

c  ndeg (1) =3 

c  ndeg (2) =3 

ndeg=3 
c 

c  Rearrange  structural  grid  and  mode  information 
c 

m=0 

do  k=l,ksg 
do  j=l,jsg 
do  i=l,isg 
m=m+l 

u(i,  j,l)=xt(m) 
u{i,  j  ,  2)  =yt  (m) 
u{i, j , 3)=zt  (m) 
u(i,j,4)=sxs(i, j,k) 
u(i, j , 5) =sys (i, j ,k) 
c  u(i, j,4)=0.0 

c  u(i, j,5)=0.0 

u(i, j , 6) =S2S (i, j ,k) 
enddo 
enddo 
enddo 
c 

c  Rearrange  aerodynamic  grid  information 
c 

m=0 

do  k=l,ka 
do  j=l,ja 
do  i=l,ia 
m=m+l 

uo(i,  j  ,l)=xa(m) 
uo{i,  j  ,2)=ya(m) 
uo (i, j , 3 ) =za  (m) 
enddo 
enddo 
enddo 
c 

c  Use  surface  fitting  routine  for  non-regular  CSD  grid 
c 

c 

c...this  program  will  fit  a  NURB  surface  to  offset  points, 
c 

c  Version:  6.0  Using  DT_NURBS  for  fitting 

c  Date:  2/1991 

c  Programmer:  Bob  Ames,  DTRC 

c  Modified  for  use  in  FASIT  8/95  &  9/95  by  MJ  Smith 
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c 

c  Process . .  . 

c  Offset  data  is  read  in  for  each  curve.  Each  curve  may  have  any  number 
c 

c  MEMORY: 

c  This  program  can  COMSUME  memory  if  you're  not  careful!  See  fitsurf.inc 

c 

c 


Q  it  ic  -k 

c  Start  loop  for  each  curve 

^  X  ★  * 

do  j=l,jsg 


c  Get  number  of  points. . .check  limits 
c 

npts_curv ( j ) =isg 


if  (npts_curv( j )  .gt.  imxs)  then 

write (6,*)  '  Error  max  mumber  of  points  per  ' 

write (6,*)  ’  curve  exceeded!  Terminating..!' 

stop 
end  if 


c  Find  curve  with  maximum  number  of  points 
i f { j  . eq .  1 )  then 

maxpts=  npts_curv(j) 
else 

maxpts=maxO  (npts__curv  ( j  )  ,  maxpts ) 
end  if 
c 

do  k=l ,  npt  s__curv  ( j  ) 
c  Check  for  coincident  points 

if  (k  .gt.  1)  then 

c  Assume  points  coincident  unless  proven  wrong 
icoin=0 
do  i=l,ndep 

if  (u(k, j , i) .eq.u(k-l, j / i) )  then 
icoin=icoin+l 

else 

continue 
end  if 
end  do 

if  (icoin.eq.ndep)  then 

write (6,*)  'Error...  input  file' 
write (6,*)  'contains  coincident  points' 
write (6,*)  '  ' 

c  write ( 6 , fmt= ' { ' Curve= ' , i3 , '  Point= ' , i3 ) ' ) 

c  Sc  j  ,k 

stop 
end  if 
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!  end  npts 
!  end  ncurv 


end  if 
end  do 
end  do 
c 

c  Fit  surface  to  input  data 

c 

call  surface  (jsg,npts_curv, ndeg,inaxpts,u,  s_carray) 
do  i=l,100 

write (6,*)  '  s_carray  ” , i , s_carray { i ) 

enddo 


c 

c  end  of  original  fitsurf  program 

c 

c  Manipulate  the  Unknown  Function  Grid  to  Determine 

c  the  Parameterization 


c 

c 

c 

c 


c 

c 

c 

c 

c 


m=0 

do  i=l,ia-l 
do  j=loa“l 
m=m+l 
jpl=i*ia+j 
xd(l ) =xa (m) 
yd(l)  =ya(m) 
zd(l)  =za(m) 
xd(2) =xa(m+l) 
yd(2 ) =ya (m+1) 
zd{2 ) =za (m+1) 
xd(3)=xa( jpl) 
yd{3)=ya( jpl) 
zd(3)=za( jpl) 
xd(4)=xa( jpl+1) 
yd{4)=ya( jpl+1) 
zd(4) =za (jpl+1) 

call  planel(xd,yd,zd,4,ipdir(ra) ,iplane) 
write (6,*)  '  plane',  m, ipdir (m) , iplane 

enddo 
enddo 

do  m=l,npts 

Now  search  for  the  known  panel  which  encloses 
the  point,  based  on  the  direction  of  the  data  panel 

call  search (ipdir(m) , lout ,mout, iout, j out , 

1  xa(m) ,ya(m) , za(m) ,xd,yd, zd) 

write (6,*)  '  search  ' ,m, lout, mout, iout , j out 

Now  call  the  bivariate  interpolation  or  extrapolation 
routines 

interpolation 

incx=l 

if (lout .gt . 0 )  then 
f d ( 1 ) =sdir (mout ) 
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fd(2 ) =sdir (mout+l) 
fd ( 4 ) =sdir (mout+isg) 
fd (3 ) =sdir (mout+isg+1) 
xx=xa (m) 
yy=ya(in) 
do  11=1,4 

write{6,*)  '  1  fd  \xd{ll)  ,yd(ll)  ,  fd(ll) 
enddo 

call  bivarin(xd,yd, fd,xx,yy, z, ierr) 

write (6,*)  ’  xx  ',xx,yy,z 

snpvl (1) =z 

f d { 1 ) =tdir { j  out ) 

f d ( 2 ) =tdir ( j  out ) 

fd ( 4 ) =tdir ( jout+1 ) 

fd(3 ) =tdir { jout+1) 

xx=xa (m) 

yy=ya(in) 

call  bivarin (xd,yd, fd,xx,yy, z , ierr) 
snpvl {2 ) =z 

write (6,*)  '  calling  dtnpvl  snpvl ( 1) , snpvl (2 ) 

call  dtnpvl  (snpvl,  incx,  s_carray,  work,]SlWK,  v,  ier) 
do  i=l,4 

write (6,*)  ’  int  ’ ,xd{i) ,yd(i) , fd(i) 

enddo 
do  i=l,6 

write (6,*)  '  dtnpvl  ',i,v(i) 

enddo 

f  (m,  1)  =v(4) 
f  (ia,2)=v(5) 
f  (m,  3)=v(6) 

else  if  (lout.eq.-l)  then 

extrapolate  along  x  direction 
do  1=1,3 
1=3 

mout= ( ( jout“l) *isg) +iout 

rapl= ( jout*isg) +iout 

do  11=1, isg 

tmpdl)  =szs  (11,  jout,  1) 

tmp2 (11) =xt ( ( jout”l) *isg+ll) 

write (101,*)  '  a  ' , 11, tmp (11) , tmp2 (11) 

enddo 

xx=xa  (m) 

call  polint ( tmp2 , tmp, isg, xx, fd (1) , err) 
if(l.eq.3)  then 

write (101,*)  ’polint  ’ ,m,  xa(m),fd(l) 
write (101, *)  (xt (11) , ll=nout , nout+isg) , 
(tmp(i) , i=l, isg) 
endif 

do  11=1, isg 

tmp (11) =szs (11 , jout+1 , 1 ) 

tmp2 { 11) =xt ( jout*isg+ll) 

write (101,*)  ’  b  ’ , 11, tmp (11) , tmp2 (11) 

enddo 


xx=xa  (m) 

call  polint  {tinp2  ,  tmp,  isg,xx,  fd  (4)  ,  err) 

xd  (1)  =xa  (m) 

xd (2 ) =xt (mout) 

xd(3) =xt (mpl) 

xd (4 ) =xa (m) 

yd ( 1 ) =yt (mout) 

yd (2 ) =yt (mout) 

yd(3) =yt (mpl) 

yd(4) =yt (mpl) 

fd(2 ) =u (iout, jout , 1+3 ) 

f d ( 3 ) =u ( lout , j  out+1 , 1+3 ) 

xx=xa (m) 

yy=ya(m) 

call  bivarin(xd,yd, fd,xx,yy, z, ierr) 
f  (m,  1 ) =z 

c  enddo 

else  if  (lout.eq.“2)  then 
c  extrapolate  along  y  direction 

c  do  1=1,3 

1=3 

mout= ( (j out-1) *isg) +iout 

do  11=1, jsg 

tmp(ll) =szs (iout, 11, 1) 

tmp2 (11) =yt ( (11-1) *isg+iout) 

enddo 

yy=ya(m) 

call  polint (tmp2, tmp, jsg,yy, fd(l) ,err) 
if(l.eq.3)  then 

c  write(6,*)  'polint  ' xa(m),fd(l) 

c  write (6, *)  (xt (11) , ll=nout ,nout+isg) , 

c  1  ( tmp ( i) , i=l, isg) 

endif 
c 

do  11=1, jsg 

tmp (11) =szs ( iout+1 ,11,1) 

tmp2 (11 ) =yt ( (11-1) *isg+iout+l ) 

enddo 

yy=ya(m) 

call  polint (tmp2 , tmp, jsg,yy, fd(4) , err) 

mout= ( (j out-1) *isg+iout) 

xd(l) =xt (mout) 

xd(2) =xt (mout) 

xd(3 ) =xt (mout+1) 

xd ( 4 ) =xt (mout+1 ) 

yd(l) =ya(m) 

yd(2 ) =yt (mout) 

yd (3 ) =yt (mout+1) 

yd(4)  =ya  (m) 

fd(2) =u (iout, jout , 1+3 ) 
fd(3 ) =u (iout+1, jout, 1+3 ) 
xx=xa  (m) 
yy=ya  (m) 

call  bivarin (xd,yd, fd, xx,yy, z , ierr) 
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f  (m, 1 ) =z 

c  enddo 

else  if  (lout-eq.-3)  then 
c  extrapolate  in  a  corner 

c  do  1=1,3 

1=3 

mout=  (  (j out-1 )  *isg)  +iout 

mpl=  ( jout*isg)  -<-iout 

do  11=1, isg 

tmp (11) =szs (11 , jout , 1) 

tmp2 (11) =xt ( (j out-1) *isg+ll) 

enddo 

xx=xa  (m) 

call  polint ( tmp2 , tmp, isg,xx, fd ( 1 ) , err) 
if(l.eq.3)  then 

c  write (6,*)  'polint  ' ,m,  xa(m),fd(l) 

c  write ( 6 , * )  (xt (11 ) , ll=nout ,nout+isg) , 

c  1  (tmp(i) , i=l, isg) 

endif 
c 

do  11=1, jsg 

tmp(ll) =S2S (iout, 11,1) 

tmp2 (11) =yt ( (11-1) *isg+iout) 

enddo 

yy=ya  (m) 

call  polint (tmp2 , tmp, jsg,yy, fd(4) , err) 
f(m,l)  =  ( (fd(l)-s2s( iout , j  out , 1 ) )  + 

1  (fd(4) -szs (iout, jout, 1) ) ) +szs (iout, jout , 1) 

write{102,*)  '  fd  ',m,l,f(m,l) 

c  end  do  m=l,npts 

endif 
enddo 
c 

do  i=l,dnaro 
write (105, *)  i, f (i, 3) 
enddo 
return 
end 


subroutine  surface  (ncurv,npts_curv,ndeg,maxpts,xyz, s_carray) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cc 

c 

c  Date:  7/1990 

c  Programmer:  Bob  Ames,  DTRC 
c 
c 

c  - 

c  Variable  definitions 

c  - 

c 

c  carray  -  array  holding  nurb  data 

c  c_tmp  -  temp  holding  array  of  individual  curves 
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c  hold 
c  maxpts 
c  ndeg 
c  ndep 
c  ndom 
c  npt_gpar 
c 


-  scratch  space  for  DT_NURBS 

-  maximum  number  of  points  for  any  input  curve (i) 

-  degree  of  curve  or  surface  (order=ndeg+l ) 

-  number  of  dependant  variables  allowed  (x,y, z , cp, vx/vy, vz . . . ) 

-  number  of  independant  variables  (s,t...) 

-  number  of  data  points  for  each  ndom 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c  Include  parameters 

implicit  double  precision  (a-h^o-z) 
include  ’ csdcfd.par ‘ 

parameter (ndom=2 , ndim=6 , ndep=6 , nwork=NWK) 
c  DTGPAR  variables 

common  /para/  npts , nptt, sdir (imxs* jmxs) , tdir ( jmxs) 
parameter {maxc= (ndim+1) *imxs* jmxs) 
dimension  xyz ( imxs , jmxs, ndim) 

dimension  temp ( imxs*ndep) , c_tmp {maxc ) , s_carray (maxc) 
dimension  t_gpar (imxs* ndom* ndep) , s_gpar (jmxs * ndom* ndep) 
dimension  c_c array (maxc) ,hold(NWK) ,work(NWK) 
integer  npt__gpar  (ndom)  ,  ipntr_s  ( jinxs*ndep*2 )  ,  len_c 
integer  npts_curv ( jmxs ) , icc 


logical  diag 


Q  *  ★  * 

c  Set  initial  values 

Q  * 


c  Other  logicals 


diag=  .false, 
diag=  . true . 

c  Generate  parametric  array  of  initial  input  data  in  preparation  for 
c  curve  fitting 

Q  ★**********T«r*******************************-*-**********-*-*************** 
Q  ic-k-k 

c  Load  temp  array  with  input  data  from  data  base 
^  ★ 

ipntr_s (1) =1 
ndep_gpar=:3 
npts=0 
nptt=ncurv 
do  j=l,ncurv 
index=l 


do  m=l , ndep_gpar 

do  k=l , npts_curv ( j ) 

temp { index) =xyz (k, j ,m) 
index= index+ 1 
end  do 
end  do 


c  Diagnostics  on  temp  array.. (i.e.  input  data) 
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if  {diag  .eq.  .true,)  then 
write (6,*)  ’  “ 

write (6,*)  '==========  NEW  CURVE  ==========  ' 

write (6,*)  'Data  for  curve  numbers ‘ , j 
write (6,*)  ’  k  m  indx  input  data' 

index=l 

do  in=l ,  ndep_gpar 

do  k=l,npts_curv( j) 

write(6, fmt=’ (lx, 3i4, fl2 . 6) ’ )  k,m, index, 

&  temp (index) 

index= index  4-1 
end  do 
end  do 
end  if 

c  End  Diagnostics 

c  Set  up  dtgpar  arguments 

Q  ★  *  * 

npt_gpar(l)  =  npts_curv{j)  INiimber  of  data  points  in  s  direction 
ndom_gpar  =  1  INumber  of  indep  variables  (i.e.  s,t) 

c  ndep_gpar  =  1  INumber  of  depend  variables  (i.e.  x,y,z) 

ndim_gpar  =  npts_curv(j)  !Max  parameter  dimension 
c 

call  dtgpar  { npt_gpar , temp , ndom_gpar , ndep^gpar , work , nwork , 

&  ndim_gpar , t_gpar , i er ) 

do  l=l,npt_gpar (1) 
ll=npts+l 
sdir ( 11 ) =t_gpar ( 1 ) 
enddo 

npts=npt_gpar  ( 1 )  4-npts 
if  (ier  .ne.  0)  then 

write (6,*)  '  DTGPAR  returned  IER= ' , ier 

stop 
end  if 

c  Diagnostics 

if  (diag  .eq.  .true.)  then 
write (6,*)  '  ’ 

write (6,*)  '***  DIAG,  ON  T_GPAR  ***' 

c  write  ( 6,  fmt=  '  (lx,  '  (1)  Curve  nuinber= '  ,  i3 )  '  )  j 

do  loop2=l,ndim_gpar 

write ( 6 , fmt= ' (lx, i6 , 2f 12 . 6) ' ) 

Sc  loop2  ,  t_gpar  ( loop2 ) 

end  do 
end  if 

c  End  Diagnos 

c  Fit  input  curve  pts  using  DTNSI 

do  ii=l,ndep 

if  (ii.  eq.  1)  then 
icc=-l 
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else 

icc=2 
end  if 

c  Load  input  array  of  dependant  variables 
do  kk=l,npts_curv( j ) 

temp ( kk ) =xyz { kk , j , ii ) 
write (6,*)  '  dtnsi  ’ , kk, ii , temp (kk) 

end  do 
k=ndeg+l 

ncoef = (npts_curv ( j ) -2 ) +k 
nc=5+  (ndep+l)  *ncoef-fk 
call  dtnsi (npts_curv(j ) , 

&  t_gpar , 

Sc  temp,ndeg,  icc, hold,nwork,maxc, 

Sc  c_carray,nc,  ier) 

end  do 
do  11=1,100 

write (6,*)  ’  c_array  ’ , 11 , c_carray ( 11 ) 

enddo 

c  Diagnostics 

if  (diag  .eq.  .true.)  then 
call  fit_diag{c_carray, j ) 
end  if 

c  Error  Check 

if  (ier  .It.  0)  then 

write (6,*)  '  DTNSI  returned  IER= ’ , ier 

stop 
end  if 


c  Generate  points  at  constant  parametric  locations  using  max  number  of 
c  points  contained  in  any  one  input  curve . . . load  back  into  data  base 

call  dtsepp(c_carray,maxpts,work,nwork,  temp,  ier) 


Q  -rc  ic  fr 

c  Reload  surf  data  base  with  new  refitted  data 

Q  ★  *  * 

npts_curv ( j ) =maxpts 


incr=l 

do  ii=l,ndep 

do  kk=l,  maxpts 

xyz (kk, j,ii)=temp(incr) 

write (6,*)  '  new  temp  ’ , ii , kk, incr , xyz (kk, j , ii ) 

incr=incr+l 
end  do 
end  do 


^★★★********************************************^****^^^***^^^^^^*^^^^^^ 
c  Generate  parametric  array  based  on  the  same  knot  set  for  each  curve 
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do  i=l,inaxpts 
t_gpar  { i )  = 

real ( (i-1) / (maxpts~l . 0) ) 

end  do 
c  Diagnostics 

if  (diag  .eq.  .true.)  then 
write (6,*)  '  ' 

write(6,*)  '***  DIAG.  ON  T__GPAR  ***’ 
c  write  (  6 ,  fmt=  '  (lx,  '  Curve  n'uinber=  '  ,  i3  )  '  )  j 

do  loop2=l ,maxpts 

write ( 6 , fmt= ' (lx, i6 , f 12 . 6 ) ' ) 

Sc  loop2  ,  t_gpar  ( loop2 ) 

end  do 
end  if 

c  End  Diagnostics 

c  Fit  new  interpolated  input  points  using  DTNSI 

do  ii=l,ndep 

if  (ii.  eq.  1)  then 
icc=-l 
else 

icc=2 
end  if 

c  Load  input  array  of  dependant  variables  into  temp  array 
do  kk=l,npts_curv( j ) 

temp ( kk ) =xy2 ( kk , j , i i ) 
end  do 

call  dtnsi {npts_curv( j ) , 

^  t_gpar , 

Sc  temp, ndeg,  icc, hold, nwork,maxc, 

Sc  c_carray, 

Sc  len_c,ier) 

c  Error  Check 

if  (ier  .It.  0)  then 

write (6,*)  '  DTNSI  returned  IER=',ier 

stop 
end  if 

c  Check  size  of  C  array  against  what  is  output 
call  dtcsiz (c_carray, isize, ier) 
if  (ier  .ne.  0)  then 

write (6,*)  '  DTCSIZ  returned  IER= ' , ier 

end  if 

if  (isize  .ne.  len__c)  then 

write(6,*)  'C  size  does  not  match!!’ 
stop 
end  if 
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end  do 


c  Diagnostics 

if  (diag  ,eq.  .true.)  then 
call  f it_diag (c_carray, j ) 
end  if 

c  End  Diagnostics 


c  Load  curve  data  into  tmp  array 

Q  *  ★  ★ 

do  nloop=l, len_c 

c_tmp ( ipntr_s ( j )  +  nloop-1 )  = 

&  c_carray (nloop) 

ich=ipntr__s  ( j  )  +nloop-l 
end  do 

c  Set  pointer  into  tmp  for  each  location  of  next  curve 
if  (j  .ne.  ncurv)  then 

ipntr_s(j+l)  =  len_c  +  ipntr_s(j) 
end  if 

Q  ★  *  * 

end  do  lend  curve  loop  ...end  of  surface (i) 


Q  *  *  * 

c  store  first  point  of  each  section  to  parameterize  t  space 

Q  ★  *  ★ 


c  Use  first  point  of  station. .. pnt ( 1 ) 
index=l 

do  m=l ,  ndep__gpar 
do  i=l, ncurv 

temp (index) =xyz (1, i,m) 
write (6,*)  '  t  temp  i ,m, temp (index) 

index=index+l 
end  do 
end  do 

c  Diagnostics  on  temp  array.. (i.e.  input  data) 
if  (diag  .eq.  .true.)  then 
write (6,*)  '  ' 

write (6,*)  '  ' 

write  (6,*)  '====:======  t  CURVE  ======:====  ■ 

c  write (6, fmt= ' (lx, ’Data  for  T  parameter  =’)’) 

write (6,*)  '  k  m  indx  input  data' 

index=l 

do  m=l , ndep_gpar 
do  k=l, ncurv 

write ( 6 , fmt= ' ( lx, 3i4 , f 12 . 6 ) ' )  k, m, index. 
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temp  ( index) 


Sc 

index=index+l 
end  do 
end  do 
end  if 

c  End  Diagnostics 


c  Set  up  dtgpar  argiiments 
npt_gpar ( 1 )  =  ncurv 
ndom_gpar  =  1 

s,  t) 

c  ndep_gpar  =  1 

ndim_gpar  =  ncurv 

call  dtgpar  ( np t_gpar , temp , ndom_gpar , ndep_gpar , work , nwork , 
Sc  ndim_gpar ,  s__gpar ,  i  er ) 

do  l=l,npt_gpar (1) 
tdir ( 1 ) =s_gpar ( 1 ) 
write (6,*)  '  tdir  ',l,cdir(l) 

enddo 

if  (ier  .ne.  0)  then 

write ( 6 , * )  '  DTGPAR  returned  IER= ' , ier 

stop 
end  if 


INumber  of  data  points  in  t  direction 

'Number  of  indep  variables  (i.e. 

'Number  of  depend  variables  (i.e.  x,y,z) 
IMax  parameter  dimension 


c  Diagnostics 

if  (diag  .eq.  .true.)  then 
write (6,*)  '  ' 

write (6,*)  •***  DIAG.  ON  NEW  T_GPAR  ***' 

c  write(6, fmt=’ (lx, ' (1)  Curve  number= ’ , i3 ) ' )  j 

do  1 oop2 = 1 , ndim_gpar 

write { 6 , fmt= '  (lx, i6 , 2f 12 . 6 )  '  ) 

Sc  loop2 ,  s_gpar  ( loop2  ) 

end  do 

c  Check  on  new  c_tmp  array 
write (6,*)  '  ' 

write (6,*)  •  ' 

write (6,*)  '  ****  C_TMP  ****  ' 

call  f it_diag (c_tmp, 999) 

end  if 


c  Fit  surface  to  curves 


call  dtcrbl ( c_tmp , len_c , 

&  s_gpar , 

Sc  ncurv,  ndeg,  work,  nwork, 

Sc  s_carray,  ier) 
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do  i=l,100 

write (6,*)  ’  s_carray  '  , i , s_carray { i ) 

enddo 

if  (ier  ,ne»  0)  then 

write ( 6 , * )  *  DTCRBL  returned  IER= ’ , ier 

if  ((ier  ,eq.  1)  .or.  (ier  .eq.  2))  then 

write  (6/*)  '  ier=:l  =>  some  illconditioning ' 

write (6,*)  '  ier=2  =>  severe  illconditioning' 

else 
stop 
endif 
end  if 

c  Diagnostics 

if  (diag  .eg.  .true.)  then 
call  f it_diag ( s_carray , id) 
end  if 

c  Determine  length  of  C  array 

call  dtcsiz ( s_carray, len_c, ier) 
if  (ier  .ne.  0)  then 

write (6,*)  '  DTCSIZ  returned  IER= ' , ier 

end  if 


return 

end 

subroutine  f it_diag (carray, id) 
implicit  double  precision  (a-h,o-z) 
include  ' csdcfd.par ' 
parameter (ndim=6 , ndep=6 ) 
parameter  (maxc=  (ndim+1 )  ''^imxs*  jmxs ) 
dimension  carray(maxc) 

double  precision  plo (2 ) , phi (2 ) 
integer  ploc (3) ,qloc (4) 
integer  kord (2 ) , ncoef ( 2 ) 


call  dtget (carray, . true. , 2, n,mraw,mdep, kord, ncoef ,plo, phi, ier) 


write (6,*)  ’  ' 

write (6,*)  ’  ***  DTGET  ON  C  ARRAY 

write (6, fmt= ' (lx, / , 


Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 


( 1 )  Curve  number= 

(2)  No.  indep.  variables= 

(3)  No.  dep.  variables  c(2)= 

(4)  No.  dep.  variables  {c(2)-l  if  c(2)  neg.}: 

(5)  Order  of  spline  U  and  V= 

(6)  No.  of  basis  funtions  in  U  and  V= 

(7)  IER  error  flag= 

(8)  Parameter  limit  low= 

(9)  Parameter  limit  high= 

id ,  n ,  mraw,  mdep ,  kord ,  ncoef ,  ier ,  plo ,  phi 


/ i3,  /, 

, i3 , / , 
,i3,/, 

/ i3, /, 
,2i5,/, 
,2il0,/, 
,il0,/, 
,2fl2.6, /, 
,2fl2.6)  '  ) 


return 
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end 

c  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

subroutine  load (mode, idir,nspts,  ft) 
c  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

implicit  double  precision  (a-h,o~2) 
include  ' csdcfd.par ' 

common  /struct/  sxs (imxs, jmxs, kmxs) 

Sc,  sys  (imxs,  jmxs,  kmxs )  ,  szs  (imxs,  jmxs,  kmxs)  ,  is 
Sc,  js,  ks,  isg,  jsg,  ksg 

dimension  ft ( dnstr+3 ) 


m=0 

do  k=l,ksg 
do  j=l,jsg 
do  i=l,isg 
m=m-Hl 

if (idir .eq. 1)  ft (m) =sxs (i, j , k) 
if (idir .eq.2)  ft (m) =sys (i, j ,k) 
if (idir . eq. 3 )  ft (m) =szs ( i, j , k) 
enddo 
enddo 
enddo 
c 

return 

end 

subroutine  search (ipdir, lout,mout, iout , j out , xa, ya, za,xs,ys, zs) 

implicit  double  precision  (a-h,o-z) 
include  ' csdcfd.par ’ 
c 

c  xs,ys,zs  -  structural  grid  points 

c  sxs,sys,szs  -  structural  mode  shapes  values  at  grid  points 

c  xa,ya,za  -  aerodynamic  grid  points 

c  sxa,sya,sza  -  calculated  aerodynamic  deflections 

c  isg,jsg,ksg  -  number  of  structural  points 

c  is,js,ks  “  nimber  of  structural  points  (  for  each  mode) 

c  ia,ja,ka  -  number  of  aerodynamic  points 

c 
c 

common  /struct/  sxs (imxs, jmxs, kmxs) 

& , sys ( imxs , jmxs , kmxs ) , szs ( imxs , jmxs , kmxs ) , is 
&, js, ks, isg, jsg, ksg 

common  /str/  xt (dnstr) ,yt (dnstr) , zt (dnstr) , ft (dnstr+3 ), nspts 
dimension  xs (4 ) ,ys (4 ) , zs (4 ) 

iout=0 

jout=0 

lout=0 

raout=0 
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go  to  (300,200,100)  ipdir 


c  x-y  plane  (ipdir=3) 

c 

100  continue 

do  l=l,jsg-l 
do  i=l,isg-l 
m= ( 1-1 ) *isg+i 
mpl=m+isg 

c  write (6,*)  '  xy  ' ,xt (m) , xa, xt (m+l) 

if (xt (m) , gt .xa)  go  to  150 
if (xt{m) . le .xa . and.xt (m+1) .ge.xa)  then 

if  (yt(in)  .gt.ya.and.yt(in+l)  ,gt.ya)  go  to  120 
if  (yt(m)  .  le.ya.and.yt  (mpl)  .ge.ya)  then 
mout=m 
jout=l 
iout=i 
lout=l 
go  to  500 
endif 

if {yt{m+l) . le.ya.and.yt (mpl+1) .ge.ya)  then 
mout=in 
jout=l 
iout=i 
lout=l 
go  to  500 
endif 
endif 

150  continue 
enddo 

120  continue 

enddo 

c  compute  the  extrapolation  locations 

lout=0 
mout=0 
m=l 

if (xt{m) .gt.xa.or.xt (m+isg-1) .It.xa)  then 
if (xt(m) .gt.xa)  iout=l 
if (xt (m+isg-1) .It.xa)  iout=isg 
if (yt(iout) .gt.ya)  then 
jout=l 
lout=-3 
return 

endif 

do  j=l,jsg“l 

m= ( j -1 ) *isg+iout 

if (yt(m) . le.ya.and.yt (m+isg) .ge.ya)  then 
lout=-l 
j  out= j 
return 

endif 

enddo 

if  (yt ( { jsg-1) *isg+iout) .It.ya)  then 
jout=j  sg 
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lout='-3 

return 

endif 

endif 

c  outside  span 

m=l 

if (yt (m) . gt .ya. or .yt ( ( jsg-1 ) *isg) . It .ya)  then 
if  {yt(in)  .gt.ya)  jout=l 
if (yt { { jsg-1) *isg+l) . It .ya)  jout=jsg 
if (xt (m) . gt . (xa) )  then 
iout=l 
lout=-3 
return 

endif 

if (xt ( { jsg-1) *isg+isg) . It .xa)  then 
iout=isg 
lout=-3 
return 

endif 

do  i=l,isg-l 

in=  ( jout-1)  *isg+i 

if (xt (m) . le .xa. and.xt (m+l) .ge .xa)  then 
lout=-2 
iout=i 
return 

endif 

enddo 

endif 

write (6,*)  'error  in  search',  xa,  ya 
return 

c  y-2  plane  (ipdir=2) 

200  continue 

do  1=1, jsg-1 
do  i=l,isg-l 
m= ( 1-1 ) *isg+i 
mpl=m+isg 

if (zt(m) .gt.za)  go  to  250 
if (zt(m)  . le . za . and . zt (m+l ) .ge.za)  then 
iout=i 

if (yt(m) .gt.ya)  go  to  220 
if (yt (m) .le.ya.and.yt(mpl) .ge.ya)  then 
jout=l 
mout=m 
lout=l 
go  to  500 
endif 

220  continue 

endif 

250  continue 
enddo 
enddo 

write (6,*)  'error  ',ya,2a 
lout=0 
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return 

c  x-z  plane  (ipdir=l) 

300  continue 

do  l=l,jsg-“l 
do  i=l,isg“l 
in=  {1“1)  *isg+i 
mpl=m+isg 

-  if  (xt(in)  .gt.xa)  go  to  350 

if  (xt(in)  .  le.xa.and.xt  (m+1)  .ge.xa)  then 
if (zt (m) -gt.za)  go  to  320 

^  if (zt (m) . le. za. and, zt (mpl ) .ge . za)  then 

jout“l 
iout=i 
inout=m 
lout=l 
go  to  500 
endif 

320  continue 

endif 

350  continue 
enddo 
enddo 

write (6,*)  ’error  ’,xa,za 

lout=0 

return 

c  load  structural  panel 

500  continue 

jp=inout+isg 
jpl=mout+isg+l 
xs  (1)  =xt  (mout) 
ys  (1)  =yt  (mout) 
zs (1) =zt (mout) 
xs (2) =xt (mout+1) 
ys (2 ) =yt (mout+1) 
zs (2) =zt (mout+1) 
xs (4) =xt ( jp) 
ys  (4)  =:yt  ( jp) 
zs (4) =zt ( jp) 
xs (3 ) =xt ( jpl) 
ys(3)=yt (jpl) 
zs{3)=zt (jpl) 
c 

c  final  checks 

c 

if (ipdir.eq.2)  go  to  600 
if (xa . ge .xs (4) . and.xa. le .xs (3 ) )  go  to  600 
xr= (xs ( 4 ) -xs ( 1 ) ) * (ya-ys ( 1 ) ) / (ys ( 4 ) -ys ( 1 ) ) 
if(xr.le.xa)  go  to  600 

xr=(xs(3)-xs(2) )*(ya-ys(2) ) / (ys ( 3 ) -ys ( 2 ) ) 
if (xr. ge.xa)  go  to  600 
i f { iout . eq . 1 )  then 
lout=0 
return 
endif 
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inout=mout“'l 
go  to  500 
600  continue 

if (ipdir .eq. 1)  go  to  700 
if  (ya.ge.ysd)  .and.ya.ge.ys(2)  )  go  to  700 
yr= (ys (2) -ys (1) ) * (xa-xs (1) ) / (xs (2) -xs (1) ) 
if{yr.le.ya)  go  to  700 

yr=  (ys  (3  )  -ys  (4)  )  *  (xa-xs  (4)  )  /  (xs  (3 )  -xs  (4)  ) 
if{yr.ge.ya)  go  to  700 
i f { j  out . eq . 1 )  then 
lout=0 
return 
endif 

mou t =mou t - i s g 
go  to  500 
700  continue 

if ( ipdir . eq. 3 )  go  to  800 
if (za . ge. zs (4) .and. za. le . zs (3) )  go  to  800 
zr= (zs (4) -zs (1) ) * (xa-xs (1) ) / (xs (4) -xs (1) ) 
if(zr.le.za)  go  to  800 

zr= ( zs (3 ) -zs (2 ) ) * (xa-xs (2 ) ) / (xs (3 ) -xs (2 ) ) 
if{zr.ge.za)  go  to  800 
if ( iout . eq. 1 )  then 
lout=0 
return 
endif 

mout=inout-l 
go  to  500 

800  return 
end 
c 

subroutine  bivarin (xd, yd, fd,x,y, f , ierr) 

c  Prograinmer:  V.  M.  Kaladi,  Nov  2,  '93 

implicit  double  precision  {a-h,o-z) 

parameter  (eps=le-5,  itmax=500,  eps2=le-3) 
dimension  xd(4) ,yd(4) , fd(4) 
dimension  a (2, 2) 

c  Given  the  values  of  a  function  f(x,y)  at  four  points 
c  ( (xd(i) ,yd(i) ,  i=l,4)  as  fd(i),  i=l,4  and  the  point 
c  (x,y)  inside  the  quadrilateral  formed  by  the  data  points, 
c  this  subroutine  computes  the  linear  bivariate  interpolated  value 
c  of  f {x,y) . 

c  statement  functions 
c  g(u,v)=  sum_{j=l,4)  of  gj*psij{u,v) 
c  =  (gO  +  ga’^u  +  gb*v  +  gc^u’^v) 

c  where  gj  are  values  at  the  data  points. 

gO (gl,g2,g3,g4)=  0.25*(  gl  +  g2  +  g3  +  g4) 
ga(gl,g2,g3,g4)=  0.25*(-gl  +  g2  +  g3  -  g4) 
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gb{gl,g2,g3,g4)=  0.25*  {-gl  -  g2  +  g3  +  g4) 
gc  (gl ,  g2 ,  g3 ,  g4 )  =  0.25*  (  gl  -  g2  +  g3  -  g4) 
gd(gl,g2,g3,g4)=  ( {gl-g2 ) * (gl-g2 ) + (g3-g4) * (g3-g4) ) 
c  end  statement  functions 
c 

c  check  to  see  if  there  are  identical  points 
c 

do  1=1,4 

chk  =  gd(xd(l) ,x,yd(l) ,y) 

c  chk= (xd(l) “X) * (xd{l) -x) + {yd(l) -y) * (yd(l) -y) 

if (sgrt(chk) .le.eps)  then 
f=fd(l) 
return 
endif 
enddo 


ierr=  0 

x0=  gO (xd(l) ,xd(2) ,xd(3) ,xd(4) ) 
y0=  g0(yd(l) ,yd(2) ,yd(3) ,yd(4) ) 
xa=  ga(xd(l) ,xd{2) ,xd(3) ,xd(4) ) 
ya=  ga(yd(l) ,yd(2) ,yd(3) ,yd(4) ) 
xb=  gb (xd ( 1 ) , xd ( 2 ) , xd ( 3 ) , xd ( 4 ) ) 
yb=  gb {yd { 1 ) , yd ( 2 ) , yd ( 3 ) , yd ( 4 ) ) 
xc=  gc(xd(l) ,xd(2) ,xd(3) ,xd(4) ) 
yc=  gc(yd(l) ,yd(2) ,yd(3) ,yd(4) ) 

up=  0 . 0 
vp=  0 . 0 
iter=0 

10  continue 

a  (1,1)=  xa  +  xc*vp 
a(l,2)=  xb 
a ( 2 , 1 ) =  ya 
a (2,2)=  yb  +  yc*up 

if ( {a{l,l) *a(2,2)  -  a (2 , 1 ) *a (1, 2 ) ) . eq. 0 . 0 )  go  to  20 

deti=  1.0/ {a(l,l) *a(2,2)  -  a (2 , 1 ) *a (1 , 2 ) ) 

u=  {a{2,2) * (x-xO)  -  a(l,2)*(y-y0) )*deti 

v=  (a(l,l) * (y-yO)  -  a (2 , 1 ) * (x-xO ) ) *deti 

errnorm=  dsqrt  (  (U“‘Up)**2  +  (v-vp)  **2  ) 

up=u 

vp=v 

iter=  iter+1 

if  (errnorm  .gt.  eps  .and.  iter  .It.  itmax)  go  to  10 


if  (iter  .ge.  itmax)  then 

print*, 'Error,  max  no.  of  iterations  exceeded  ' 
print*, 'in  subroutine  bivarin' 
ierr=  1 

write (6,*)  '  errnorm  =  errnorm, '  eps  =  ' , eps 

write (6,*)  ’  points  ',xa,ya 

write(6,*)  ’  xd  ’ ,xd(l) ,xd(2 ) ,xd(3 ) ,xd{4) 

write(6,*)  "  yd  ' ,yd(l ) ,yd(2 ) ,yd (3 ) ,yd(4) 

stop 
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c 

c 

c 


end  if 


if  (u  .It.  -1.0  .or.  u  .gt.  1.  .or.  v  .It.  -1  .or.  v  ,gt.  1)  then 
print* Error,  interpolation  point  (x,y)  is  not  within  ' 
print*, 'the  quadrilateral  of  data  points.’ 
c  err=  . true . 

c  return 

c  end  if 


c  Assuming  any  point  falling  outside  the  quadrilateral  of  data  points 
c  is  due  to  round  off  error  the  point  is  reset  to  the  nearest  boundary, 
if  (abs(u).gt.  1.0)  u=  int{u) 
if  (abs(v).gt.  1.0)  v=  int{v) 


f=  g0{fd{l) ,fd(2) ,fd(3) ,fd(4) )  + 

&  u  *  ga(fd(l) ,fd(2) ,fd{3) ,fd{4) )  + 

Sc  V  *  gb(fd(l)  ,fd(2)  ,fd{3)  ,fd{4)  )  + 

&  u*v*gc(fd(l) ,fd(2) , fd(3 ) , fd(4)  ) 
c 
c 

t  =  (x  -xd(l) ) / {xd{2) -xd(l) ) 
u  =  (y  -yd(l))/(yd(4)-yd{l)) 

fa=  (l.-t) * (l.-u) *fd(l)  +  t* (l.-u) *fd(2)  +  t*u*fd{3) 
1  +  (l.-t) *u*fd(4) 


return 

c  The  det  is  0.,  so  we  missed  an  identical  point  the 

c  first  time  through 

20  continue 


c  check  to  see  if  there  are  identical  points 
c 

mchk=0 

chkmin=9 . 999e5 
do  1=1,4 

chk  =  gd(xd(l) ,x,yd(l) ,y) 
if (chk. It . chkmin)  then 
chkmin=chk  ' 
mchk=l 

endif 

enddo 

f=fd(mchk) 

return 

end 

C - 

subroutine  planel (x,y, z, n, ipdir, planar) 
implicit  double  precision  (a-h,o-2) 

C  This  routine  checks  to  see  if  the  surface  resides  within  a  single  plane 
C  It  uses  input  structural  coordinates 
C  planar  =  .true. 

C  =  .false, 

C - 

integer  ipdir,  planar 
dimension  x{n) ,  y(n) ,  2{n) 
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c 

c  local  variables 
c 

dimension  a(3),  b(3),  c{3),  d{3) 
c 

c  external  functions 
c 

double  precision  fmag 
c 

c  scan  thru  all  points  &  check  cross  product 
c 

eps=le-28 
ixycnt=0 
iyzcnt=0 
ixzcnt=0 
do  i=l,  n 
if  (i.eq.l)  then 

d{l)  =  x{n-l)  -  x(i) 

d{2)  =  y(n--l)  -  y(i) 

d(3)  =  z{n-l)  -  z(i) 

else 

d(l)  =  x(l)  -  x(i) 

d(2)  =  y(l)  -  y(i) 

d(3)  =  z(l)  -  z(i) 

endif 

if  (i.eq.n)  then 

b(l)  =  x(2)  -  x{i) 

b(2)  =  y(2)  ~  y{i) 

b{3)  =  z(2)  -  z(i) 

else 

b(l)  =  x(n)  -  x(i) 

b(2)  =  y(n)  -  y(i) 

b(3)  =  z (n)  -  z (i) 

endif 

call  acrossb(d,b, a)  !  find  unit  normal 

c 

c  Division  by  zero  taking  place  in  this  section 
c  was  a (c) =a (c) /fmag (a, 3 ) 
c 

a(l)  =  a(l) / (fmag(a, 3) +eps) 
a (2)  =  a (2 ) / ( fmag (a, 3 ) +eps) 
a (3)  =  a(3 ) / (fmag(a, 3) +eps) 

Q 

c  check  to  see  if  points  reside  on  x-y  plane 
c  check  if  axis  and  unit  normal  correspond 
c 

b(l)  =  0  I  axis  normal 
b(2)  =  0 
b(3)  =  1 

call  acrossb (a, b, c) 
cmag  =  fmag ( c , 3 ) 

if  {cmag.eq.  0 . 0)  ixycnt  =  ixycnt  1 
c 


453 


c  check  to  see  if  points  reside  on  y-z  plane 
c 

b{l)  =  1  !  axis  normal 

b(2)  =  0 

b(3)  =  0 

call  acrossb(a,b, c) 
cmag  =  f mag { c , 3 ) 

if  (cmag. eq. 0 . 0 )  iyzcnt  =  iyzcnt  +  1 
c 

c  check  to  see  if  points  reside  on  x-z  plane 
c 

b(l)  =  0  !!  axis  normal 

b(2)  =  1 

b(3)  =  0 

call  acrossb (a,b, c) 
cmag  =  f mag ( c , 3 ) 

if  (cmag.eq. 0 . 0)  ixzcnt  =  ixzcnt  +  1 
enddo 
c 

c  set  direction 
c 

icnt  =  0 

if  ( ixycnt . eq.n)  then 
ipdir  =  3  !  surface  resides  in  x-y  plane 
planar  =  1 
icnt  =  icnt  +  1 
elseif  (ixzcnt .eq.n)  then 
ipdir  =  2  !  surface  resides  in  x-z  plane 
planar  =  1 
icnt  =  icnt  +  1 
elseif  (iyzcnt .eq.n)  then 
ipdir  =  1  !  surface  resides  in  y-z  plane 
planar  =  1 
icnt  =  icnt  1 
else 

planar  =  0 
endif 
c 

c  check  checksum 
c 

if  (icnt.gt.l)  then 
write (6^*)  'ERROR:  In  PLANE  routine' 
write (6,*)  'Possible  grid  problem' 
stop 
endif 
return 
end 

Q - 

c  This  subroutine  finds  c  =  a  X  b 
c  a,b,c  are  3D  vectors 

subroutine  acrossb (a, b, c ) 
implicit  double  precision  (a-h,o-z) 
double  precision  a(3),  b(3),  c(3) 
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c(l)  =  a(2)*b(3)  -  b(2)-a(3) 

c{2)  =  b(l)*a{3)  -  a(l)*b(3) 

c(3)  =  a(l)*b{2)  -  b{l)-a{2} 

return 

end 


double  precision  function  f mag (array, nim) 
integer  num 

double  precision  array (num) , sum 

sum  =  0.0 
do  i=l,  num 

sum  =  sum  +  array (i) *array(i) 
enddo 

fmag  =  dsqrt(sum) 

return 

end 


subroutine  polint  (xa,ya,  n,x,y,  dy) 
implicit  double  precision  (a“h,o-z) 
include  ’ csdcfd.par ' 
parameter {nmax=dnstr ) 

dimension  xa(nmax)  ,ya(nmax)  ,c{nmax)  ,d(nmax) 
ns=l 

dif=abs (x-xa (1) ) 
do  i=l,n 

write (101,*)  ’  polint  ' , i,xa (i) ,ya (i) 

enddo 
do  i=l,n 

dift=abs (x-xa (i) ) 
if (dif t . It .dif )  then 
ns=i 

dif=dift 
endif 
c ( i ) =ya ( i ) 
d ( i ) =ya ( i ) 
enddo 
y=ya(ns) 
ns=ns-l 
do  m=l,n-l 
do  i=l,n-m 
ho=xa (i) “X 
hp=xa (i+m) -x 
w=c (i+1) ~d(i) 
den=ho-hp 

i f ( den . eq . 0 . )  then 

write (6,*)  'polint  problem  ’ 
write  (6,*)  x 
do  ii=l,n 

write (6 , * )  ii ,xa (ii) ,ya (ii) 

enddo 

stop 
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o  n 


endif 
den=w/den 
d(i) =hp*den 
c {i ) =ho*den 
enddo 

if  (2*ns  .  It  .n-m)  then 
dy=c (ns+1) 

else 

dy=d{ns) 

ns=ns-l 

endif 

y=y+dy 

enddo 

return 

end 

c 

subroutine  plane { ipdir, planar) 
implicit  double  precision  (a-h,o-z) 
include  ' csdcfd.par ' 

common  /str/  x(dnstr) ,y (dnstr) , z (dnstr) , ft {dnstr+3 ) ,nspts 

integer  ipdir,  planar 

dimension  a(3),  b(3),  c(3),  d(3) 

C - 

C  This  routine  checks  to  see  if  the  surface  resides  within  a  single  plane 
C  It  uses  input  structural  coordinates 
C  planar  =  . true . 

=  .false. 


c  external  functions 
c 

double  precision  fmag 
c 

c  scan  thru  all  points  &  check  cross  product 
c 

eps=le-28 
ixycnt=0 
ixzcnt=0 
iyzcnt=0 
n=nspts 
do  i=l,  n 
if  (i.eq.l)  then 

d{l)  =  x(n-l)  -  x{i) 
d{2)  =  y(n-l)  -  y(i) 
d{3)  =  z(n-l)  -  z(i) 
else 

d{l)  =  x(l)  -  x(i) 
d(2)  =  y{l)  -  y(i) 
d(3)  =  z(l)  -  z(i) 
endif 

if  (i.eq.n)  then 

b{l)  =  x(2)  -  x(i) 
b(2)  =  y{2)  -  y(i) 
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Z  (i) 


b(3)  =  z(2)  - 

else 

b(l)  =  x(n)  -  x(i) 

b(2)  =  y(n)  ~  y(i) 

b(3)  =  z(n)  -  z{i) 

endif 

♦  call  acrossb(d,b, a)  I  find  unit  normal 

c 

c  Division  by  zero  taking  place  in  this  section 

♦  c  was  a {c ) =a (c ) /fmag (a, 3 ) 
c 

a(l)  =  a{l) / (fmag(a; 3) +eps) 
a(2)  =  a{2) / (fmag(a, 3) +eps) 
a{3)  =  a(3) / (fmag(a, 3) +eps) 
c 

c  check  to  see  if  points  reside  on  x-y  plane 
c  check  if  axis  and  unit  normal  correspond 
c 

b(l)  =  0  I  axis  normal 

b(2)  =  0 

b(3)  =  1 

.call  acrossb(a,b,c) 
cmag  =  fmag ( c , 3 ) 

if  (cmag.eq. 0 . 0)  ixycnt  =  ixycnt  +  1 
c 

c  check  to  see  if  points  reside  on  y-z  plane 
c 

b{l)  =  1  1  axis  normal 

b(2)  =  0 

b(3)  =  0 

call  acrossb (a,b, c) 
cmag  =  fmag ( c , 3 ) 

if  (cmag.eq. 0 . 0)  iyzcnt  =  iyzcnt  +  1 
c 

c  check  to  see  if  points  reside  on  x-z  plane 
c 

b(l)  =  0  !  axis  normal 

b(2)  =  1 

,  b(3)  =  0 

call  acrossb(a,b,c) 
cmag  =  fmag { c , 3 ) 

»  if  (cmag.eq. 0 . 0)  ixzcnt  =  ixzcnt  +  1 

enddo 

c 

c  set  direction 
c 

icnt  =  0 

write  (6,*)  '  Plane  counts  are  ixycnt , ixzcnt , iyzcnt 

if  (ixycnt .eq.n)  then 
ipdir  =  3  !  surface  resides  in  x-y  plane 
planar  =  1 
icnt  =  icnt  +  1 
elseif  ( ixzcnt , eq. n)  then 


457 


ipdir  =  2  !  surface  resides  in  x-z  plane 
planar  =  1 
icnt  =  icnt  1 
elseif  ( iyzcnt . eq.n)  then 
ipdir  =  1  I  surface  resides  in  y-z  plane 
planar  =  1 
icnt  =  icnt  +  1 
else 

planar  =  0 

if  plane  is  curved,  then  the  counts  won't  be  equal 
to  n.  But,  the  other  counts  should  also  be  equal 
to  0.  Correct  for  this 

i f { ixycnt . gt . 0 . and . ixzcnt . eq . 0 . and . iyzcnt , eq . 0 )  then 
planar=l 
ipdir=3 
icnt=icnt+l 
endif 

i f ( ixycnt . eq . 0 . and . ixzcnt . gt . 0 . and . iyzcnt . eq . 0 )  then 
planar=l 
ipdir=2 
icnt=icnt‘fl 
endif 

i f ( ixycnt . eq . 0 . and . ixzcnt . eq . 0 . and . iyzcnt . gt . 0 )  then 
planar=l 
ipdir=3 
icnt=icnt+l 
endif 
endif 

check  checksum 

if  (icnt.gt.l)  then 
write { 6 , * )  ' ERROR :  In  PLANE  routine ' 

write (6,*)  'Possible  grid  problem' 
stop 
endif 
return 
end 


